93-00173 

_ _  »an  fT.  IRK 


AD-A258  971 


AFIT/GSO/ENS/92D-02 


AN  ANALYSIS  OF  USSPACiOCOM’S  SPACE 
SURVEILLANCE  NETWORK  (SSN)  SENSOR 
TASKING  METHODOLOGY 


a»»T7=j 


THESIS 

JofT  Mark  B-rgor  Jo.scph  Bri'cc  Molts  David  George  Wiisey 
(!a|)laiu,  USAF  Captain,  USA  tiaptaiii,  USAF 


AFIT/GSO/ENS/92!)-02 


DTIC 

ELECT E 
JAN081393 

B 


Ap|>rov('(l  Ibr  public  roloaso;  clislributiou  uiiliniitod 


Best  Available  Copy 

_ o<>  1  A  ! 


The  views  expressed  in  this  thesis  are  those  of  ihe  authors  and  do  not  reflect  the  official 
policy  or  position  of  the  Department  of  Defense  or  the  U.  S.  Government 


AoooBslon  For 

RTIS  ORAil 

00^ 

DTIC  TAB 

□ 

Unanoounoed 

□ 

Justtf loatlon__ 

Bv 

Dlstjj^butioa/ _ 

Availability  Codea 


ivaii  and/or 


AFIT/GSO/ENS/92D-02 


AN.ANALYSIS  OF  USSPACECOM’S  SPACE  SURVEILLANCE  NETWORK 
SENSOR  TASKING  METHODOLOGY 


THESIS 


Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
Air  University. 

In  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of 
Master  of  Science  in  Space  Operations 


Jeff  Mark  Berger,  B.S.  Joseph  Bruce  Moles,  B.S.,  M.S.  David  (;<H>rg(’  VVIlsey,  B.S. 
Captain,  USAF  Captaiiu  USA  (‘aplain.  l‘SAF 


December  1992 


Approved  for  public  release;  distribution  unlimited 


THESIS  APPROVAL 


STUDENTS: 

THESIS  TITLE: 

DEFENSE  DATE: 

COMMITTEE: 

Advisor: 

Co- Ad  visor: 


Captain  Jeff  M.  Berger,  USAF  CLASS:  GSO-92D 

Captain  Joseph  B.  Moles,  USA 
Captain  David  G.  Wilsey,  USAF 


An  Analysis  of  USSPACECOM’s  Space  Surveillance  Network  Sensor 
Tasking  Methodology 


November  24, 1992 


NAME/DEPARTMENT  SIGNATURE 


Thomas  S.  Kelso,  Lt  Col,  USAF 
Asst  Professor  of  Space  Operations 
Dept  of  Operational  Sciences 
School  of  Engineering 

William  E.  Wiesel,  Jr. 

Professor  of  Astronautica!  Engineering 
Dept  of  Aeronautics  and  Astronautics 
School  of  Engineering 


Acknowl'idgments 


In  performing  this  research,  we  have  received  help  from  many  sources.  We  would 
like  to  thank  our  research  advisor,  LtCol  Thomas  S.  Kelso  for  his  continued  patience  and 
exhaustive  assistance  throughout  our  work.  We  would  also  like  to  thank  our  co-advisor. 
Dr.  William  E.  Wiesel,  for  his  help  in  the  technical  aspects  of  our  research.  Thanks  are  also 
due  to  Capt  Gregory  Bishop  of  the  1st  Command  and  Control  Squadron  for  information  on 
NORAD  operations  provided  during  numerous  telephone  and  personal  interviews.  Finally, 
CPT  Moles  would  like  to  thank  his  wife  Mary  for  her  patience  and  support  during  the 
months  of  this  research  effort. 


Jeff  Mark  Berger 
Joseph  Bruce  Moles 
David  George  Wilsey 


ii 


Table  of  Contents 


Page 

Acknowledgments  .  ii 

Table  of  Contents  .  iii 

List  of  Figures . xi 

List  of  Tables .  xviii 

Abstract .  xxi 

I.  INTRODUCTION .  I-l 

1.1  Background .  1-1 

1.2  Problem .  1-2 

1.3  Research  Obj 'ctivc .  1-2 

1.4  Scope  of  Research . 1-2 

1.4.1  Analysis  of  the  SSN .  1-3 

1.4.2  Analysis  of  Karth  Satellite  Populalion .  1-3 

1.4.3  'rriilh  Model  Development .  l*-l 

1.4.4  Dill'eretUial  Corrm-lor  Development .  1-1 

1.4.r)  Stuli.slical  .'\naly.si.s .  I>  l 

l.r)  Limitations  of  l{e.searfh .  .  l  -l 

II.  LITMUATUIU:  RKVIKW .  21 

2.1  Inlrodnrtiun  .  2-1 

2.2  SSN  .Sen.s(»r  'ryi>es  and  (‘hararteri-stirs .  21 

2.2.1  Radar  Sen.sors .  2-1 

2.2.2  Optical  Sensors .  2  -’> 

2.3  Sjtace  Surveillance  Network  Com  posit  ion  .  2-0 

iii 


■  Page 

2.3.1  Dedicated  Sensors .  2-6 

2.3.2  Collateral  Sensors . . .  2-7 

2.3.3  Contributing  Sensors . .  2-8 

2.4  Space  Surveillance  Network  Coverage  and  Limitations  ....  2-10 

2.. 5  Space  Suf  /eillance  Network  Sensor  Accuracies  .  2-10 

2.. 5.1  Radar  Sensor  Error . 2-10 

2.. 'i.2  Propagation  Effects .  2-16 

2.. ').3  Optical  Sensor  Error .  2-20 

2.. '>.4  Sensor  Bias  and  Sigma . '. . .  2-23 

2.6  Orbit  Cla-ssifications . .  2-27 

2.6.1  Informal  C!as.scs .  2-27 

2.6.2  Gabbard  C^lassses .  2-27 

2.7  Sensor  Tasking  Methodology .  2-31 

2.7.1  Ta.sking  (-ategorics  and  Suffixes .  2-32 

2.7.2  Near-Earth  Seinsor  Tasking .  2-34 

2.7.3  Deep-Space  Sensor  Tasking . 2-36 

2.. **  SS.N  .Sensor  Ol).s<‘rvation  Pn}re.ssing  Methodology .  2-38 

2.9  Observation  Proces.slng  and  Orbital  Element  (’orreclion  .  .  .  2-39 

2.9.1  SSC  Observation  Prort‘s,sing .  2-39 

2.9.2  Differential  (’orrertioii:  Hatch  and  Setiuential. ....  2-42 

2.10  Sijtnmarv  of  Pa.st  SSX  .•Vsse.s.snienls . .  .  2-4.b 

2.10.1  Spare  Surveillance  Program  .■Vrrhiiectnre  Report.  .  .  2-4.'> 

2.10.2  Final  Report  of  the  Surveillance  Command  and  Con¬ 
trol  Study . ; .  2-46 

III.  THKOUKTICAI.  HACKtillOl  XI) .  . .  .3-1 

3.1  Element /Covariance  Propagation .  .'M 

3.1.1  The  State  Sidulion . .  3-1 


Page 

3.1.2  The  State- Transition  Matrix.  . 3-7 

3.2  Differential  Correction .  3-9 

3.2.1  Least  Squares  Estimation .  3-9 

3.2.2  Bayes  Estimation  Algorithm .  3-13 

3.3  Numerical  Calculation  of  the  Observation  Matrix .  3-14 

3.4  Variance  Reduction  Techniques .  3-15 

3.4.1  Common  Random  Numbers  (CRNs) .  3-15 

3.4.2  Antithetic  Variates  (AVs) .  3-15 

IV.  METHODOLOGY .  4-1 

4.1  Analysis  of  Earth  Satellite  Population .  4-1 

4.1.1  Satellite  Composition  Analysis .  4-1 

4.1.2  Perturbations  Analysis . 4-2 

4.1.3  Classification  Scheme  Development .  4-3 

4.1.4  Representative  Satellite  Selection .  4-3 

4.2  SGP  Program  Library .  4-4 

4.3  Truth  Model .  4-5 

4.3.1  Model  Development .  4-5 

4.3.2  i.lodcl  Execution .  4-7 

4.3.3  Model  Verification .  4-10 

4.4  Differential  Corrector .  4-11 

4.4.1  Model  Development .  4-11 

4.4.2  Model  Execution .  4-19 

4.4.3  Model  Verification .  4-21 

4.5  Statistical  Analysis .  4-22 

4.. 5.1  Ob.servation  Rate/ Update  Interval  Selection .  4-22 

4. . 5. 2  Monte  Carlo  Analysis .  4-22 

4.5.3  Variance  Reduction .  4-24 

4.5.4  Data  Analysis .  4-25 


v 


Page 


V.  ANALYSIS  OF  EARTH  SATELLITE  POPULATION  .  .  .  . .  5-1 

5.1  Satellite  Composition  Analysis . 5-1 

5.2  Perturbations  Analysis .  5-13 

5.3  Classification  Scheme  Development .  5-20 

5.4  Representative  Satellite  Selection .  5-25 

5.5  Data  Discrepancies .  5-26 

VI.  ANALYSIS  OF  DIFFERENTIAL  CORRECTOR  MODEL .  6-1 

6.1  Analysis  of  Individual  Satellite  VMAGT  Data .  6-1 

6.1.1  Class  1-1-1  (NORAD  Catalog  Number  15141).  .  .  .  6-2 

6.1.2  Class  1-1-2  (NORAD  Catalog  Number  152.59).  .  .  .  6-3 

6.1.3  Class  1-3-2  (NORAD  Catalog  Number  14199).  .  .  ,  6-1 

6.1.4  Class  2-1-3  (NORAD  Catalog  Number  10293).  .  .  .  6-5 

6.1.5  Cla.ss  2-1-4  (NORAD  (Catalog  Number  10393).  .  .  .  6-5 

6.1.6  Class  2-2-3  (NORAl)  Catalog  .Number  198.59).  ...  6-6 

6.1.7  Class  3  I  I  (NORAD  (’aUlog  Number  01996).  ...  6-7 

6.1.8  (’la.ss  3  1 -‘i  (NORAl)  Catalog  Number  M4  t3).  ...  6-.8 

6.1.9  Cla.ss  3  1  3  (NORAD  Catalog  Number  19613).  ...  6-9 

6.1.10  (Uass  3  1  4  (NORAI)  (’alalog  Number  17-129).  .  .  .  6-9 

6.1.11  Cla.ss  4  I- 1  {NOUAD  (‘atalog  Number  203.55).  .  .  .  6-10 

6.1.12  (3a.ss  4  1  2  (NOR AD  Catalog  Numlwr  I.5.W).  .  .  .  611 

6.2  Tuning  the  Dilfereiilial  Corrwtor . 6-12 

6.3  Diirerenlial  Correction  Modi'l  Perf«»rMianre  G-l.s 


Vll.  (  ONt'I.USlONS  AND  in:(X).\|.\lEND.VnO.NS . i‘.  . .  7  1 

7.1  Conclusion.s .  7-1 

7.2  Follow-On  Ile.searrli  Keroinniendations .  7  2 


Appendix  A.  SCI*  I.IHHAHY  l)OCr.\!KNT.-\TI()N 


Al 


VI 


Page 

Appendix  B.  SGP  LIBRARY  SOURCE  LISTINGS .  B-1 

B.l  SGP'ISDP'I  Unit  Source  Code  Listing .  B-1 

B.2  SGP_IMIT  Unit  Source  Co<ic  Listing .  B-H 

B.3  SGPJNTF  Unit  Source  Code  Listing .  B-16 

B.4  SGP_MATH  Unit  Source  Code  Listing .  B-17 

B.r>  SGP_TIME  Unit  Source  (VkIc  Listing .  B-19 

B.6  SUPPORT  Unit  Source  (’o<le  Listing .  B-22 

B.7  SGP.CONV  Unit  Source  C‘o<le  Listing .  B-2M 

B.8  SGPJN  Unit  Source  Code  Listing .  B-29 

B.9  SGP_Ol'T  Unit  Source  <*otie  Listing .  B-So 

B.IOSCtP^OBS  Unit  Source  Code  Listing .  B-^W 

B.l  I  SOLAR  Unit  Source  Code  Listing .  B-tl 

B. 12  MINMAX  Unit  Source  Code  Listing .  B-13 

Appendix  C.  TRUTH  MODKl .  (  I 

(‘.I  II POP.IN  Source  Code  Listing .  C  l 

C. 2  HPOPJN  Outpul/HI’OI*  Input  Kile  Furniat  .  (‘-3 

C.3  Sample  HPOPJX  Ontpul/lIPOP  Input  Kile .  C  3 

C  l  Sample  IIPOP  Outpui/t  ONVKUT  Input  Hie  .  C  3 

C..'»  CONVERT  Program  Sourc-  Cotle  l.i.*ting .  C  4 

t'.G  USKl.Kt'T  Program  Source  Code  Listing .  C  « 

C.T  (iAUSS'i  Unit  Source  (*ode  l4*ting .  t'  10 

C. x  Sample  KSKLK<*T  Oulput/OIFC  Inp'  t  Kile  .  .  .  .  C-ll 

Appendix  1)  DIKlrRKNTIAI.  CORRKCTOB  PRl>t;RAM .  I)  I 

l),l  l)!Kt  Program  S«»-.irc»-  C^ide  Listing .  I)  I 

D. 'J  Of  IXri  Unit  S*»urcT  Ccrde  Listing .  l)-3 

0.3  OC  CAl.f  Unit  Source  Cj-nle  Listing .  1)  4 

vii 


Page 

D.4  DC.OUT  Unit  Source  Code  Listing  .  D-II 

I).5  LOW!)  Unit  Source  C^bdc  Listing .  1)13 

D.6  PROP  Unit  Source  Tmlp  Listing .  D-15 

Appendix  K.  SATIILLITK  rOMPOSITION  ANALYSIS .  E-1 

.  E.l  Cuinulative  Distribution  and  Frc()iicncy  Histograms  .  .  i  .  .  Ivl 

K.2  Scatter  Plots . .  E-8 

K.3  Orbital  Klement  ('la.ssiriration  Scatter  Plots .  K-13 

.\pp<*ndix  r.  .SAMPLE  S.VrKLLITE  SELK('TIO.\ .  F-l 

F.l  FOUTUA.V  Source  (‘ode  used  to  Divide  Satclliti's  into  (Ma.ssi's  F-l 

F.2  Example  of  FORTRAN  Output . .  F-2 

F.3  .Satellites  that  Faib*d  .Satidlite  Division  Oiteria .  F-3 

F.  l  Matliamatira  Function  for  Sample  Satellite  S<*!«H  tion .  F-3 

F.o  Example  of  Mat hematica  Input  for  Sample  Satellite  Selection  F’-l 

F.li  Selectinl  Sample  Satellite  Twi»- Line  Element  Sets .  F--! 

Appendix  MAinE,M.VH(  A  CODE  FOR  PLOTS  .  ti  I 

.\p|M-ndix  11.  VMAtiTtiRAPIlS .  Hi 

V 

H  I  CLASS;  I  I  nNOHADCatal.>g.\nml»ef  l.'.lin  .  .  .  .  ..  IM 

« 

ll.l.t  Prciliction  Performance .  Hi 

H.l.'J  Differential  Corrector  Performance .  II  10 

H.?  CLASS:  1  1  2  (NORAD  Calal.>R  Number  l.Vj.VJ)  .  . .  H  It 

11.2. 1  Prediction  performance . . .  H  ll 

11.2.2  Differential  Corrector  Performance .  1120 

H.:i  CLASS:  I  3  2  (NORAD  Catalog  Numl»er  HlftfH .  II  21 

H.3.1  Preilirl ion  Performance.  . .  11-21 

11.3.2  Differential  Cfirri'c  tor  performance .  1130 


VlIJ 


!*agc 

H.'l  CLASS:  2  1  a  (NORAl)  Catalog  Number  10293) .  H-31 

H.4,1  Pretiiction  Pcrformame .  11-31 

H.4.2  Differential  C’orrcctor  Performance .  ll-'IO 

H.n  CLASS:  2  I  'I  (NORAl)  Catalog  Number  10393) .  H-41 

H.r>.l  Prediction  Performance .  Il-'ll 

ILS/i  Dilferential  (•orr«*ctor  Performance .  Il-.'iO 

11.6  CLASS:  2  2  3  (NORAl)  Catalog  Number  19«:,9) .  Il-r,l 

H.O.l  Prcnliction  IVrformaiice .  H  '»i 

11.0.2  Differential  <*orr<‘ctor  Perform.ince .  11-60 

11.7  CLA.SS:  3  I  1  (NOllAD  <atalog  Numlier  OlOlMi) .  11-01 

11.7.1  Prediction  Performance .  H-01 

11.7.2  Dilferential  Corr«*ctor  Performance .  11-70 

ll.s  (’L.-VSS:  3  1  2  (NOR.Al)  Catalog  NuuiIht  1-1-1-13) .  11-71 

11. s. I  Predi»ti(»ii  Performance .  11-71 

ll.-'‘.2  Differential  < ‘orrector  performance .  H  .so 

11.9  Cl..-\.S.S:  3  1  3  ( N()U.-\l)  Catalog  NumlKT  I9t>l3)  ...  ILsl 

11.9.1  Pretlicliun  Performance .  11  s) 

11.9.2  Differential  Corrector  Performance .  H  ftO 

11. 10  CLASS:  3  1  t  (,\OttAf)  C  VafMR  Number  17429) .  H  91 

H.lO.l  Prr-diciiun  lVrft»rmance . .  11  91 

11.10.2  Differentia!  Cortert€»r  Performance .  II- fOO 

11.11  C  LASS:  4  1  1  (.VOR.M)  <  alal.c  Number  203r.j .  H  101 

It.!*. I  Pre«liction  performance .  11  101 

11.11.2  Dilferential  Co;Tect«r  Perf-irmaare .  |{  10-t 

11.12  CLASS.  4  1  2  (NOR  AD  Catalog  .Numlwr  LWM) .  II  10.% 

11.12.1  Pre<licli<>  •- performance .  11-10.% 

11.12  2  Diffejential  < 'orrertiti  performance .  11  lOS 


Page 

Appendix  I.  TUNED  VMAGT  GRAPHS  . .  I-l 

1.1  CLASS:  1-3-2  (NORAD  Catalog  Number  14199)  .  . .  M 

1.1.1  Prediction  Performance .  I-l 

1.1.2  Differential  Corrector  Performance .  I-IO 

1.2  CLASS:  3-1-1  (NORAD  Catalog  Number  01996) .  Ml 

1.2.1  Prediction  Performance .  I- 11 

1.2.2  Differential  Corrector  Performance . 1-20 

Bibliography . BIB-1 

Vita .  VITA-l 

Vita . .' . .  VITA-2 

Vita  . .  VITA-l 


X 


List  of  Figures 


Figure  Page 

2.1.  Worldwide  SSN  Sensor  Locations .  2-13 

2.2.  Near-Earth-Orbit  Gabbard  Classes .  2-29 

2.3.  Deep-Space  Gabbard  Classes  (High  Eccentricity) .  2-30 

2.'1.  DeeprSpace  Gabbard  Classes .  2-30 

2.5.  Processing  Flow  of  Observations.  . .  2-40 

2.6.  Differential  Correction  Process  Flow .  2-44 


3.1.  Epsilon  (f)  Values  over  Area  of  Interest  (Canonical  Units) .  3-5 

3.2.  Error  Induced  in  Extracting  no  from  n«u .  3-6 

4.1.  Truth  Model  ^  a  .  4-8 

4.2.  Diffeiei'.tlal  Corrector  Model  Flow .  4-14 


5.1.  Distribution  of  Satellites  in  Gabbard  Classes  1  16 . 

5.2.  Frequency  Histogram  Ecceniricily . 

5.3.  Cumulative  Distribitltou  Ecrenlrinty . 

5.4.  Fre<|uency  Histogram  Inclination . 

't.'t.  Cumulative  Disiribuiion  inclination . 

5.6.  Frequency  Histogram  Koxai  Mean  Motion . 

5.“.  Cumulative  Distribution  Kozai  Mean  .\|olinn . 

5..'<.  Scalier  Plot  Argument  of  Perigi'e  and  Mean  ..Vtiomoiy . 

5.9.  Scatter  Plot  Argument  of  Perigee  and  IVue  Anomaly . 

5.H).  Scatter  PI'U  .Angle  from  Node  and  inclination . 

5.11.  Scatter  Phil  .Angle  from  Nmle  and  Kccentricily . 

5.12.  Scatter  Plot  Koxai  Mea;;  Motion  and  Kccentiicily . 

5.13.  Maximum  Eccentricity  as  a  Function  of  .Mean  .M«>lion . 


.5-3 
»i-4 
5-4 
5- .5 
5-5 
.5-6 
5  6 

5.7 

TfH 

5..H 

.5-9 

5-11 

511 


Figure  Page 

5.14.  Scatter  Plot  —  5*,  n/2,  and  n/6 .  5-12 

5.15.  Perturbations  on  Mean  Anomaly  at  Epoch . 5-14 

5.16! ,  Eccentricity’s  Influence  on  Mean  Anomaly  at  Epoch  Perturbations.  5-14 

5.17.  Perturbations  on  the  Ascending  Node . .  5-15 

5.18.  Eccentricity’s  Influence  on  Ascending  Node  Perturbations.  .....  5-15 

5.19.  Perturbations  on  the  Argument  of  Perigee . .  5-16 

5.20.  Eccentricity’s  Influence  on  Argument  of  Perigee  Perturbations.  .  .  .  5-16 

5.21.  Mean  Motion  Influence  on  Node  and  Perigee  Motion . 5-17 

5.22.  Eccentricity  Influence  on  Node  and  Perigee  Motion .  5-18 

5.23.  Inclination  Influence  on  Node  Motion . . .  5-18 

5.24.  Inclination  Influence  on  Perigee  Motion .  .5-19 

.5.25.  i:vla.xiri'.utn  Eccentricity  as  a  function  cf  Mean  Motion .  5-22 

5.26.  Mean  Motion  and  Eccentricity  Class  Divisions .  5-23 

6.1.  Old  VM.‘\(iT  data  for  Class  31  -2  (Catalog  Number  14443) .  6-13 

E.l.  Histogram  and  Distribulioi;  Plots  —  Angle  From  Node,  B' .  ....  E-2 

E.2.  Histogram  and  Distribution  Plots  Eccentricity,  Epoch .  E-3 

E.3.  Histogram  and  Distribution  Plots  Peiigw*,  .NORAD  C'atalog  Num¬ 
ber .  E-4 

E.4.  Hisi«)gram  ami  Distribution  Plots-  Inclination.  Mean  Anomaly.  .  E-5 

E..5.  Histograuj  and  Distribution  Plots  Mean  Motion  Time  Derivatives.  IvG 

E.6.  Histogram  and  Distribution  Plots  Node,  Koicai  Mean  Motion.  .  .  E-7 

E.7.  Scatter  Plot  B'  and  Mean  Motion  Dot/2 .  E-9 

E..H.  Scatter  Plot  Mean  Motion  Double  Dot/(>  ami  Mean  Motion  Dot/2.  E-10 

K.9.  Scatter  Plot  •  Mean  Motion  Double  Dot /C>  and /i* . .  .  E-ll 

r..lO.  Scatter  Plot  Eccentricity  and  Inriination .  Ivl2 

K.H.  Classification  Breakout  Inrliiiatioii  ('lass  1.  . . .  K-l-l 

E.12.  Classification  Hreakout  Inclin.'ilion  Cl.'iss  2 .  Ivl  l 

xii 


Figure  Page 

E.13.  (Uassification  Breakout  —  Inclination  Class  3 .  E-15 

E.14.  Classification  Breakout  —  Inclination  Class  4 .  E-15 

E.  15.  Classification  Breakout  —  Inclination  Class  5 .  E-16 

E.i6.  Classification  Breakout  —  Inclination  Class  6 .  E-16 

H.l.  Class;  1-1-1  (Catalog  Number  15141),  LUPI  2,  OPD  2  and  4.  .  .  .  H-2 

H.2.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  2,  OPD  6  and  8.  .  .  .  H-3 

H.3.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  4,  OPD  2  and  4.  .  .  .  H-4 

H.4.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  4,  OPD  6  and  8.  ..  .  H-5 

H.5.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  6,  OPD  2  and  4.  .  .  .  H-6 

H.6.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  6,  OPD  6  and  8.  .  .  .  H-7 

H.7.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  8,  OPD  2  and  4.  .  .  .  H-8 

H.8.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  8,  OPD  6  and  8.  .  .  .  H-9 

H.9.  Last-Pass  —  Class:  1-1-1  (Catalog  Number  15141),  LUPI  8,  OPD  8.  H-10 

H.IC.  Class;  1-1-2  (Catalog  Number  15259),  LUPI  2,  OPD  2  and  4.  .  .  .  H-12 

H.ll.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  2,  OPD  6  and  8.  .  .  .  H-13 

H.12.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  4,  OPD  2  and  4.  .  .  .  H-14 

H.13.  Class:  1-1-2  (Catalog  Number  15259),  LU’^I  4,  OPD  6  and  8.  ..  .  H-15 

H.i4.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  6,  OPD  2  and  4.  .  .  .  H-16 

H.15.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  6,  OPD  6  and  8.  .  .  H-17 

H.16.  Class:  l-J-2  (Catalog  Number  15259),  LUri  8,  OPD  2  and  4.  .  .  .  H-18 

II. 17.  Class:  1-1- 2  (Catalog  Number  15259),  LUPI  8,  OPD  6  and  8.  .  .  .  H-19 

11.18  Last- Pass -- Class:  11-2  (Catalog  Number  15259),  LUPI  8,  OPD  8.  H-20 

11.19.  Class:  1-3-2  (Catalog  Number  J4199),  LUPI  2,  OPD  2  and  4.  .  .  .  H-22 

11.20.  Class:  1-3  -2  (Catalog  Number  14199),  LUPI  2,  OPD  6  and  8.  ..  .  H-23 

11.21.  Class:  1  .3-2  (Catalog  Number  14 199),  LUPI  4,  OPD  2  and  4.  .  .  .  11-24 

H.22.  C3ass;  1-3--2  (Catalog  Number  14199),  LUPI  4,  OPD  6  and  8.  .  .  .  H-25 

11.23.  Class:  1-  3  2  (Catalog  Number  14199),  LUPI  6,  OPD  2  and  4.  .  .  .  H-26 

xiii 


Figure  •  Page 

H.24.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  6,  OPD  6  and  8.  .  .  .  H-27 

H.25.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  8,  OPD  2  and  4.  ...  H-28 

H;26.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  8,  OPD  6  and  8.  ...  H-29 

H.27.  Last-Pass  —  Class:  1-3-2  (Catalog  Number  14199),  LUPI  8,  OPD  8.  H-30 

H.28.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  2,  OPD  2  and  4.  ...  H-32 

H.29.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  2,  OPD  6  and  8.  .  .  .  H-33 

H.30.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  4,  OPD  2  and  4.  .  .  .  H-34 

H.31.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  4,  OPD  6  and  8^  .  .  .  H-35 

H.32.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  6,  OPD  2  and  4.  .  .  .  H-36 

H.33.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  6,  OPD  6  and  8.  .  .  .  H-37 

H.34.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  8,  OPD  2  and  4.  .  .  .  H-38 

H.35.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  8,  OPD  6  and  8.  ...  H-39 

H.36.  Last-Pass  —  Class:  2-1-3  (Catalog  Number  10293),  LUPI  8,  OPD  8.  H-40 

H.37.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  2,  OPD  2  and  4.  .  .  .  H-42 

H.38.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  2,  OPD  6  and  8.  .  .  .  H'43 

H.39.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  4,  OPD  2  and  4.  .  .  .  H-44 

H.40.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  4,  OPD  6  and  8.  .  .  .  11-45 

* 

H.41.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  6,  OPD  2  and  4.  .  .  .  H-46 

H.42.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  6,  OPD  6  and  8.  ...  H-47 

H.43.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  8,  OPD  2  and  4.  .  .  .  H-48 

H.44.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  8,  OPD  6  and  8.  ...  H-49 

H.45.  Last-Pass  —  Class:  2-1-4  (Catalog  Number  10393),  LUPI  8,  OPD  8.  H-5fl 
H.46.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  2,  OPD  2  and  4.  .  .  .  H-.52 

H.47.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  2,  OPD  6  and  8.  .  .  .  H-53 

H.48.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  4,  OPD  2  and  4.  .  .  .  H-54 

H.49.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  4,  OPD  6  and  8.  .  .  .  H-55 

H.50.  Class:  2-2-3  ((Catalog  Number  19859),  LUPI  6,  OPD  2  and  4.  .  .  .  H-56 


XIV 


Figure  Page 

H.51.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  6,  OPD  6  and  8.  .  .  .  H-57 

H.52.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  8,  OPD  2  and  4.  ■  .  .  H-58 

H.53.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  8,  OPD  6  and  8.  .  .  .  H-59 

H.54.  Last-Pass  —  Class:  2-2-3  (Catalog  Number  19859),  LUPI  8,  OPD  8.  H-60 

H.55.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  2,  OPD  2  and  4.  .  .  .  H-62 

H.56.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  2,  OPD  6  and  8,  .  .  .  H-63 

H.57.  Cl^s:  3-1-1  (Catalog  Number  01996),  LUPI  4,  OPD  2  and  4.  .  .  .  H-64 

H.58.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  4,  OPD  6  and  8.  .  .  .  H-65 

H.59.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  6,  OPD  2  and  4.  .  .  H-66 

H.60.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  6,  OPD  6  and  8.  .  .  .  H-67 

H.61.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  8,  OPD  2  and  4.  .  .  .  H-68 

H.62.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  8,  OPD  6  and  8.  .  .  .  H-69 

H.63.  Last-Pass  —  Class:  3  -1-1  (Catalog  Number  01996),  LUPI  8,  OPD  8.  H-70 

11.64.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  2,  OPD  2  and  4.  .  .  .  H-72 

11.65.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  2,  OPD  6  and  8.  ..  .  H-73 

11.66.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  4,  OPD  2  and  4.  .  .  .  H-74 

11.67.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  4,  OPD  6  and  8.  .  .  .  H-75 

11.68.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  6,  OPD  2  and  4.  .  .  .  H-76 

11.69.  Class:  3- 12  (Catalog  Number  14443),  LUPI  6,  OPD  6  and  8.  ..  .  H-77 

11.70.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  8,  OPD  2  and  4.  .  .  .  H-78 

11.71.  Class:  3-1-  2  (Catalog  Number  14443),  LUPI  8,  OPD  6  and  8.  .  .  .  H-79 

11.72.  Last-Pa.s.s  -  Class:  3-1-2  (Catalog  Number  14443),  LUPI  8,  OPD  8.  H-80 

11.73.  (Uass:  3- 1-3  (Catalog  Number  19643),  LUPI  2,  OPD  2  and  4.  .  .  .  H-82 

11.74.  Class:  3  1 -3  (Catalog  Number  19643),  LUPI  2,  OPD  6  and  8.  ..  .  H-83 

11.7.5.  Class:  31-3  (Catalog  Number  19643),  LUPI  4,  OPD  2  and  4.  .  .  .  11-84 

11.76.  Class:  3  1  3  (Catalog  Number  19643),  LUPI  4,  OPD  6  and  8.  .  .  .  H-85 

11.77.  (Mass:  3 -1-3  (Catalog  Number  19643),  LUPI  6,  OPD  2  and  4.  .  .  .  11-86 


XV 


Figure  Page 

H.78.  Class:  3-1-3  (Catalog  Number  19643),  LUPI  6,  OPD  6  and  8.  ...  H-87 

H.79.  Class:  3-1-3  (Catalog  Number  19643),  LUPI  8,  OPD  2  and  4.  ...  H-88 

H.80.  Class:  3-1-3  (Catalog  Number  19643),  LUPI  8,  OPD  6  and  8.  ...  H-89 

H.81.  Last-Pass  —  Class:  3-1-3  (Catalog  Number  19643),  LUPI  8,  OPD  8.  H-90 

H.82.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  2,  OPD  2  and  4.  .  ,  .  H-92 

H.83.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  2,  OPD  6  and  8.  .  .  .  H-93 

H.84.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  4,  OPD  2  and  4.  .  .  .  H-94 

H.85.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  4,  OPD  6  and  8.  .  .  .  H-95 

H.86.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  6,  OPD  2  and  4.  ...  H-96 

H.87.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  6,  OPD  6  and  8.  ...  H-97 

H.88.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  8,  OPD  2  and  4.  ...  H-98 

H.89.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  8,  OPD  6  and  8.  ...  H-99 

H.90.  Last-Pass  —  Class:  3-1-4  (Catalog  Number  17429),  LUPI  8,  OPD  8.  H-lOO 
H.91.  Class:  4-1-1  (Catalog  Number  20335),  LUPI  2,  OPD  2  and  4.  ...  H-102 

H.92.  Class:  4-1-1  (Catalog  Number  20335),  LUPi  2,  OPD  6  and  8.  .  .  .  H-103 

H.93.  Last-Pass  —  Class:  4-1-1  (Catalog  Number  20335),  LUPI  2,  OPD  8.  H-104 

H.94.  Class:  4-1-2  (Catalog  Number  15584),  LUPI  2,  OPD  2  and  4.  .  .  .  H-106 

11.95.  Class:  4-1-2  (Catalog  Number  15584),  LUPI  2,  OPD  6  and  8.  .  .  .  H-107 

H. 96.  Last- Pass  —  Class:  4-1-2  (Catalog  Number  15584),  LUPI  2,  OPD  8.  H-108 

I. l.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  2,  OPD  2  and  4.  .  .  .  1-2 

1.2.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  2,  OPD  6  and  8.  .  .  .  1-3 

1.3.  Class:  1-3  -2  (Catalog  Number  14199),  LUPI  4,  OPD  2  and  4.  ...  1-4 

1.4.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  4,  OPD  6  and  8.  .  .  .  1-5 

1.5.  Cla.ss:  1-3 -2  (Catalog  Number  14199),  LUPI  6,  OPD  2  and  4.  ...  1-6 

(Hass:  1-3  2  (Catalog  Number  14199),  LUPI  6,  OPD  6  and  8.  ...  1-7 

1.7.  CHass:  1-3 -2  ((!!alalog  Number  14199),  LUPI  8,  OPD  2  and  4.  ...  1-8 

1.8.  Cla.ss:  1  3  2  ((’alalog  Number  14199),  LUPI  8,  OPD  6  and  8.  .  .  .  1-9 


xvi 


Figure  Page 

1.9.  Last- Pass  —  Class:  1-3-2  (Catalog  Number  14199),  LUPI  8,  OPD  8.  I- 10 

1.10.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  2,  OPD  2  and  4.  ,  .  .  1-12 

1.11.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  2,  OPD  6  and  8.  ...  1-13 

1.12.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  4,  OPD  2  and  4.  .  .  .  1-14 

1.13.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  4,  OPD  6  and  8.  ...  1-15 

1.14.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  6,  OPD  2  and  4.  .  .  .  1-16 

1.15.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  6,  OPD  6  and  8.  ..  .  1-17 

1.16.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  8,  OPD  2  and  4.  ...  1-18 

1.17.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  8,  OPD  6  and  8.  ...  1-19 

1.18.  Last-Pass  —  Class:  3-1-1  (Catalog  Number  01996),  LUPI  8,  OPD  8.  1-20 


xvii 


Table 


List  of  Tables 


Page 


2.1.  SSN  Sensor  Category,  Type  and  Mission . .  2-9 

2.2.  SSN  Sensor  Locations .  2-11 

2.3.  Space  Surveillance  Network  Sensor  Limits . 2-12 

2.4.  Classification  and  Description  of  Angle  Errors. . .  .  2-16 

2.5.  Classification  and  Description  of  Range  Errors .  2-17 

2.6.  Representative  Sensor  Sigmas .  2-25 

2.7.  Representative  Sensor  Bias . 2-26 

2.8.  Gabbard  Classes. . 2-28 

2.9.  1974  System  Capability  Study  Results .  2-33 

2.10.  Near-Earth  Mechanical-Tracking  Radar  Tasking  Suffixes.  ......  2-35 

2.U.  Near-Earth  Phased- Array  Radar  Tasking  Suffixes . 2-35 

2.12.  Typical  Tasking  for  Routine  Near-Earth  Satellites .  2-36 

2.13.  Deep-Space  Optical  Sensor  Tasking  Suffixes .  2-37 

2.14.  Deep-Space  Radar  Sensor  Tasking  Suffixes .  2-.38 

2.1.5.  Ob.servation  Data  Types . 2-38 

2.16.  Association  Status .  2-40 

2.17.  'IVouble  Flags . 2-42 

2.18.  DiRerential  (Correction  Programs.  . .  2-42 

5.1.  Satellite  Population  Within  Each  Gabbard  (’lass .  .5-2 

5.2.  Orbital  Kleiuc'iit  Statistics  (Minimum.  Mean,  Median.  Maximum)-  •  fi-3 

5.3.  Sign  Eir«H-ts  on  Perturbations  Due  to  Inclination . .  .  5-20 

5.-1.  Orbital  ('la.sse.s  Ha.sed  on  Inclination .  5-21 

5.5.  Orbital  (’la.sses  Hn.sed  on  Mean  Motion . 5-21 

5.6.  Orbital  Classes  Ha.sed  on  Eccentricity .  .5-22 


xvii; 


Table  Page 

5.7.  Summary  of  Orbital-Element-Based  Classes .  5-23 

5.8.  Satellite  Population  Within  Each  Element-Based  Class .  5-24 

5.9.  Classes  Selected  for  Differential  Corrector  Model  Analysis .  5-25 

5.10.  Orbital  Element  Set  Discrepancies .  5-26 

6.1.  Representative  Satellites  for  Analysis .  6-1 

6.2.  First  Order  In-Track  Error  Analysis .  6-14 

6.3.  Element  Variance  Limits  Used  for  DC  Tuning  of  Class  3-1-1.  .  .  .  6-18 

6.4.  Element  Variance  Limits  Used  for  DC  Tuning  of  Class  1-3-2.  ,  .  .  6-18 

H.l.  95%  Confidence  Interval  Analysis  on  Class:  1-1-1 .  H-1 

H.2.  ANOVA  Analysis  on  Cla.ss:  1-1-1 .  H-1 

H.3.  Selected  Last-Pass  95%  Confidence  Interval  Statistics .  H-10 

H.4.  95%  Confidence  Interval  Analysis  on  Class:  1-1-2 .  H-11 

II. 5.  ANOVA  Analysis  on  Class:  1-1-2 .  H-11 

H.6.  Selected  Last-Pass  95%  Confidence  Interval  Statistics .  H-20 

H.7.  95%  Confidence  Interval  Analysis  on  Class:  1-3-2 .  H-21 

H.8.  ANOVA  Analysis  on  Class:  1-3-2 .  H-21 

H.9.  Selected  Last-Pass  95%  Confidence  Interval  Statistics .  11-30 

H.  10.  95%  Confidence  Interval  Analysis  on  Class:  2-1-  3 .  H-31 

H.ll.  ANOVA  Analysis  on  Class:  2  13 .  11-31 

H.12.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. .  H-40 

11.13.  95%  Confidence  Interval  Analysis  on  Class;  2  14 .  11-41 

11.14.  ANOVA  Analysis  on  (la.ss:  2  -1  4 .  11-41 

11.15.  Selected  Last- Pa.s.s  95%  ('onfidence  Interval  Statistics .  1I-.50 

11.16.  95%  (Confidence  Interval  Analysis  on  <fia.ss:  2  2  3 .  11-51 

11.17.  ANOVA  Analysis  on  (Ma.ss:  2  2  3 .  11-51 

11.18.  Selected  Inist-P;uss  95%  (-onfidence  Interval  Statistics .  11-60 


XiX 


Table  Page 

H.19.  95%  Confidence  Interval  Analysis  on  Class:  3  -1-1 .  H-61 

H.20.  ANOVA  Analysis  on  Class:  3-1-1 .  H-61 

H.21.  Selected  Last-Pass  95%  Confidence  Interval  Statistics .  Il-7u 

H.22.  95%  Confidence  Interval  Analysis  on  Class:  3-12 . H-71 

H.23.  ANOVA  Analysis  on  Class:  3-1-2 .  11-71 

H.24.  Selected  Last-Pass  95%  Confidence  Interval  Statistics .  H-80 

H.25.  95%  Confidence  Interval  Analysis  on  Class:  3-1-3 .  H-81 

H.26.  ANOVA  Analysis  on  Class:  3-1-3 .  H-81 

H.27.  Selected  Last-Pass  95%  Confidence  Interval  Statistics . .  H-90 

H.28.  95%  Confidence  Interval  Analysis  on  Class:  3  1<1 .  11-91 

H.29.  ANOVA  Analysis  on  Class:  3  14 .  H-:)l 

11.30.  Selected  Last- Pass  95%  Confidence  Interval  Statistics .  IMOO 

H. 31.  95%  Confidence  Interval  .Analysis  on  Class:  4  1  1. .  .  .  . .  H-IOI 

11.32.  .Selwted  Last-Pass  95%  (-onfidence  Interval  Statistics .  II- 10*1 

11.33.  9.5%  (’onfidence  Interval  .Analy.sis  on  Cla.ss:  4  1  ’2 .  H-10.5 

1I..M.  Seleclwl  La'^l-Pass  9.5%  Confidence  Interval  Statistics.  .  . .  IMOs 

I. l.  95%  Confidence  Interval  .Analy.sis  on  (3ass:  1  .3  2 .  M 

1.2.  .ANOV.A  .Analysis  on  Class:  13  2 . .  •  M 

1.3.  ,S<4«*cie<l  Last- Pa.ss  9.5%  Confidence  Interval  Slalistirs .  MO 

1.4.  9.5%  C’«)rifidenre  Interval  .Analy-sU  on  Clas-v  3  11... .  Ml 

1.5.  ANOVA  .\nalY.sis  on  Class:  3  I  I .  Ml 

l.G.  .Srlectwl  L.-tst-Paas  95%  Confidrnrt  Interval  Statistic.- .  L20 


NX 


AFIT/GSO/KNS/92I)-02 


Abstract 

Tins  study  provides  tlio  basis  for  the  development  of  a  cost /benefit  assessMenl  model 
to  determine  the  effects  of  alterations  to  the  Spac?  Surveillance  Network  (SSN )  on  orbital 
element  (OK)  set  accuracy.  It  provi<les  a  review  of  current  methods  used  by  NORAI)  and 
the  SSN  to  gather  and  proces.s  observations,  an  alternative  to  the  current  (labbard  classi¬ 
fication  method,  and  the  development  of  a  model  to  determine  the  effects  of  observation 
rate  and  correction  interval  on  OK  .set  accuracy.  The  proposed  cla.ssification  scheme  is 
l)a.sed  on  satellite  perturbations.  .SpiH'ifically,  cla.sses  were  established  based  on  mean 
motion,  eccentricity,  ami  inclination  since  Jj  perturbation  effects  are  functions  of  only 
these  elements.  Model  development  In'gan  by  crc'aling  repre.sentative  yemsor  observations 
usi''**  a  highly  accurate  orbital  propagation  model.  ri»*se  observations  were  compared 
to  prtHiiui  '!  observation.s  general«*<l  using  the  NOll.Al)  .Simplified  (Joneial  Perturbation 
(Sdl’l)  model  and  «’uferenlially  corrt*ct«‘d  using  a  Bayes.  .se(|uet»lial  estimation,  algorithm. 
.\  lO  run  Monte  Carlo  analMis  wa.s  performtHl  using  this  model  on  12  satellites  .ising  16 
different  observation  raie/cprte<  lion  interval  combinations.  .An  A.N’OV.A  and  confidence 
interval  analysis  of  the  resull.s  .show  that  tii.y  model  does  demonsiraic  the  difrereiiri*s  in 
.steady  stale  position  error  based  on  varying  ol>.MTvat  ion  rate  and  coritvtion  interval. 


AN  ANALYSIS  OF  USSPACRCOM’S  SPACE  SURVEILLANCE  NETWORK 
SENSOR  TASKING  METHODOLOGY 

/.  INTRODUCTION 

l.l  liurkground 

Following  tlip  launch  of  Sputnik  I  on  I  October  1957,  the  United  States  realized  that 
it  needed  the  capability  to  track  and  identify  objects  in  earth  orbit  (7:12-10).  Shortly 
thereafter,  <levelopinent  began  on  a  .sy.steiii  of  seiisors  to  peifortn  that  mission.  Today,  it  is 
the  res|)onsibility  of  the  Uiiite<l  StaU's  Space  (*omtnand  ( USSP.-VCKCOM)  Space  Stirwil- 
lance  Center  (SSC).  at  Cheyenne  Mountain  Air  Force  Base  (CM.’VFB)  in  Colorado,  to 
<letect,  track,  identify,  and  catalog  all  objects  in  earth  orbit  (2(>:l)  (2.1:39).  'lb  perform 
these  tasks,  the  SS(’  re<|nir('s  accurate  positional  data  on  all  of  the  objects  in  orbit.  This 
data  is  provided  by  the  2.5  \vorldwi<!e  sen.sors  of  the  Spare  Surveillance  .Network  (SS.N). 

'I'Ih*  sensors  of  the  SSN  continuon.sly  track  approsiniately  (>,000  inan-inade  objects 
in  earth  orbit  and  gather  metric  (positional)  data  on  them.  Tin'  sensors  send  tlu’se  ob¬ 
servations  (appro.ximately  10,000  observations  a  day)  to  the  SSC.  The  SSt'  list's  this  ilata 
to  classify  :mi<I  idi'titify  all  dt'lc'ctiMl  obj«>cts  anti  maintain  the  orbital  element  (OF)  sets  on 
each  of  these  objects  { !•'<:.’<).  The  OF  sets  are  nst'tl  lt>  predict  the  position  t)f  any  tibject  at 
any  lime.  These  predictitms  have  many  important  operational  applications  that  incluile: 
collision  avoidance,  .satellite  th'cay  and  impact  predictions,  satellite  nianeiiver  identiiica- 

tioii,  warning  of  a  satellite  passing  over  a  specitir  gintgraphic  area,  and  warning  of  attack 

/ 

t>n  I’S  space  iissets  (7:1210,  12-11).  'I'herefore.  maintaining  the  accuracy  of  the  OF  sets 
tisi'd  to  make  these  pnslictions  is  essential. 

n.i.sed  on  the  enrreni  .s:«lellite  growth  rate,  the  .'sS('  will  l»e  inainlaining  surveillance 
on  alMint  10,000  objiscis  by  the  year  2000  ( I7:.'i.*<.'<).  Correspondingly,  the  nnmlM'r  of  ob¬ 
servations  on  these  objects  rmeivivl  and  processcil  by  the  .S,SC  will  also  rise,  (iiveii  this 
growth  rate,  the  tracking  limits  of  the  SSN.  and  current  computational  limits,  the  capacity 


of  tho  SSC  will  eventually  be  reached.  In  order  to  maintain  the  reciuired  orbit  prediction 
accuracy  on  this  steadily  increasing  number  of  object.s,  new  or  upgraded  ^en.sors  and  com¬ 
puters  will  be  required.  However,  in  the  future  military  budget  climate,  money  for  these 
upgrades  may  not  be  available.  US.SPAfHCC’OM  may  al.so  find  it.self  under  pressure  to  shut 
<lown  .some  of  its  older  sensors  that  are  deemed  too  e-xpensive  to  operate. 

I.J  Pmblnn 

'I'lie  problem  which  l)S.SP.‘\(’K(*OM  will  eventually  1m‘  faced  with  is  how  to  iuaintain 
orbit  prediction  and  OK  sot  accuracy  on  an  increasing  numl)er  of  objects  while  pcxssibly 
having  to  ( 1 )  <h‘crease  the  number  of  .sen.sors,  (2)  diM-ide  where  to  place  new  seusons,  and/or 
(.'$)  decid<'  which  s<*usor(.s)  or  coinputer  syslein(s)  to  upgrade  with  limited  available  funding. 
In  other  words,  how  to  operate  the  .S.SC  and  SSN  as  eHicienllv  as  possible  with  minimum 
resources  (sen.sors  and  com()iit«‘r  syst««nis). 

/../  Histurrh  Objrrtin 

I  here  are  two  obj<*clives  of  this  re.searrh.  'I  he  first  i.>.  to  analyse  l‘S.''l*.\(“K<‘().\I’s 
current  sen.sor  tasking  iiH'tliodology,  ft>r using  on  current  operational  prore»iiire.s  and  melh 
lids  of  cla.vsifying  the  earth  satellite  population.  The  second  is  to  ilevelop  and  «lemon.strate 
a  inocli’l  from  which  you  ran  deterttiine  the  elferts  of  «)l>servalion  rate  and  correction  in 
lerval  on  the  accuracy  of  an  OK  set.  This  research  i.s  inlende,!  to  proviile  the  ha.sis  f«>r  the 
devehipinen*  of  a  cjuantitaiivc'  c«i«sl/henefil  assevsinent  inrMlel  to  alloM  l’S.'*l’.\tT’t'()M  to 
.n.sM-Ns  the  effects  t»f  alterations  to  the  ,SSN  on  orbit  ptet!irti<»n  accuracies. 

This  research  is  being  perfiirin«sl  at  the  re<|tiesi  of  the  l*i  (‘tMuiiiand  atjd  t'oiilrol 
Si|uaiiron  at  t’lieyenne  Mountain  .Mil.  C‘olorad«». 

/.  /  41/  lit  stttrrh 

I  his  ejfor!  is  divided  into  fi\e  s{K-cifir  areas  of  re«-arch  and  analysis.  The  first  area 
wilt  Iw  an  analxsis  of  the  SSN.  The  second  area  will  be  an  analysis  «»f  the  earth  satellite 
|M>pulatioti  and  l  .SSP.Nt  T.< 'OM's  current  niethtKl  «»f  rla.ss.ifving  satellites.  I  he  ihini  .-rrea 


will  be  the  <levelopnient  of  a  higlilj  accurate  “truth"  moHcl  used  to  produce  simulated 
observations  from  the  sensors  of  the  SSN.  'I'he  fourth  area  will  be  the  development  of  a 
differoptial  corrector  (DC)  used  to  correct  satellite  orbital  elements  based  on  a  set  of  “truth” 
observations.  The  la.st  area  will  be  a  statistical  analy.sis  of  output  from  the  differential 
rorr'Ttcr  to  estimate  the  position  accuracy  of  various  observation  rate  -  correction  interval 
combi  nalioins  on  a  .set  of  representative  satellites. 

1.4.  /  Analysis  of  the  SSN.  The  purpasc  of  this  analysis  is  to  determine  the  methods 
currently  used  to  task  .sensors  of  the  S.SN  to  gather  observational  data,  and  to  update 
satellite  orbital  element  sets.  This  data  wilt  establish  a  baseline  for  coinpari.son  with 
results  from  the  dynamics  model.  In  the  performance  of  this  analy.sis,  the  following  specific 
qiiestions  will  be  examined: 

•  What  are  tli*-  locations  ami  operational  chararlerislics  of  S‘  s  sen.sors? 

•  What  are  the  capiibilities  of  the  SSN? 

•  How  are  the  .sensors  of  the  SSN  tasked  and  how  was  that  method  developed? 

•  How  are  the  sensor  obsiTvation  tlala  processetlf 

•  What  are  the  operational  retiuirements  for  orbital  element  accuracy? 

•  How  (ioes  the  SSN  cla.s.sify  the  objects  it  tracks? 

•  How  does  I'SSl’.At'KCOM  update  orbital  elements? 

•  How  does  aiciiosplieric  refraction  affect  SSN  .sensor  ob.servations? 

•  What  are  the  error  characteristics  of  the  SSN  sensors? 

'I'he  au.swers  to  the.se  questions,  and  the  results  of  this  analysis,  will  be  pre.sente(l  in 
the  Literature  Ueview, 


l..f.  I  Analysis  of  luiiih  SatrlliU  htpulal ion.  In  addition  to  understanding  the  cur¬ 
rent  mellioib;  used  to  task  sensors  to  gather  ob  ervational  data  on  earth  satellili's  and  to 
update  satelli'e  orbital  elements,  an  undeistanding  of  the  satellite  oiiiita!  characteristics  is 
es.sential.  'I’he  purpose  of  analyzing  the  earth  .satellite  population  is  to  examine  the  orbital 
characteristics  of  satellites  in  earth  orbit  and  .sc'lecl  a  repri'senlalivc'  sample  for  analysis. 


1.4.3  Truth  Model  Development.  The  truth  model  is  intended  to  produce  highly 
accurate  “truth"  observations  of  earth  orbiting  satellites.  These  truth  observations  will 
simulate  actual  SSN  sensor  ob.servations  received  by  USSPACECOM  and  be  used  to  correct 
OE  set.s. 

1.4.4  Differential  Corrector  Development.  The  differential  corrector  model  is  in¬ 
tended  to  update  .satellite  orbital  elements  based  on  simulated  observations  from  the  truth 
model  and  output  the  vector  magnitude  of  the  error  between  the  “truth"  position  and  the 
predicted,  position  for  each  observation.  Since  the  results  from  this  model  will  be  com¬ 
pared  to  actual  data  from  USSPACECOM,  wo  will  attempt  to  simulate  methods  used  by 
US.SPA(!E('OM  as  closely  as  po.ssible  and  model  the  composition  and  characteristics  of 
the  SSN  as  realistically  as  possible. 

/.  /..•>  Statistical  .Analy,sis.  A  statistical  analysis  of  the  output  from  the  differential 
corrector  will  i)e  performed  to  determine  the  statistical  mean  and  variance  of  the  steady- 
state  position  error  of  a  satellite  based  on  a  given  observation  rate  and  correction  interval. 
These  estimations  can,  in  turn,  be  used  to  show  the  effect  of  observation  rate  and  correction 
interval  on  the  true  position  error  of  a  .satellite, 

1.5  Limitations  of  ltc.s<arch 

In  performing  this  re.searcli,-  we  will  limit  our  analysis  to  only  objects  cataloged 
by  NOIf  Al)  as  of  I  March  1990.  Due  to  various  problems  encountered  in  transferring 
orbital  r'lenienl  set  data  from  ff.S.Si’ACECOM  to  AFI'r.  and  time  restrictions  due  to  thesis 
submittal  re<|ulremenl.s.  this  .set  was  the  mo.st  current  complete  set  of  data  available  for 
analysis. 
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[I.  LITERATURE  REVIEW 


2. 1  Introduction 

This  purpose  of  this  chapter  is  to  provide  a  review  of  literature  and  information 
pertinent  to  this  research.  The  goal  of  the  literature  review  is  to  lay  the  ground  work  for 
the  research  effort.  The  following  subjects  are  covered  in  the  review: 

•  .SSN  sensor  types  and  characteristics. 

•  Composition  of  the  SSN. 

•  SSN  sensor  locations,  limits,  and  coverage  areas. 

•  Error  associated  with  SSN  sensors. 

•  SSC  satellite  classification  methodology. 

•  SSC  sensor  tasking  methodology. 

•  SSN  sensors  observation  processing  methodology. 

•  SSC  observation  processing  and  orbital  clement  correction  methodology. 

•  Previous  analyses  of  S.SN  capabilities. 

2. 2  SSN  Sejisor  Ty])es  and  Characteristics 

'I’he  SSN  uses  two  basic  types  of  sensors:  optical  and  radar  sensors.  Optical  seu-sors 
measure  the  visible  energy  enutterl  or  reflected  by  objects  and  are  typically  used  to  track 
deep-space  objects.*  Radar  sensors  measure  high-freciuency  radio  waves  reflected  by  objects 
and  are  typically  u.sed  to  track  both  near-earth®  and  deep-space  objects. 

2.2.  t  Radar  .Censors.  'Fhe  development  of  radar  has  been  called  the  greatest  ad¬ 
vance  in  the  remote  .sensing  of  objects  since  the  invention  of  the  telescope  in  1608  (1:1). 
The  radar  saw  its  first  major  use  during  World  War  II  and  the  Battle  of  Britain.  Since 

'Orbital  period  greater  than  or  erpial  to  inimitos  (2‘I:'2'.J3). 

''Orbital  pcruHl  less  than  iniiintes  ('24:223), 
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that  time,  the  basic  principle  of  the  system  ha^  not  changed  but  the  technology  supporting 
the  system  has  changed  dramatically. 

Regardless  of  the  type  of  radar,  all  radars  operate  on  the  same  general  principle. 
A  beam  of  electromagnetic  energy  is  transmitted  from  an  antenna  toward  a  target.  The 
physical  characteristics  of  the  target  will  determine  if  the  energy  is  absorbed,  reflected,  or 
some  combination  of  both.  If  any  of  the  energy  is  reflected,  the  target  itself  becomes  an 
antenna  and  re-emits  the  electromagnetic  energy  in  all  directions.  The  direction  of  the 
strongest  reflection  is  typically  in  the  direction  of  the  radar  transmitter. 

In  general,  for  a  given  observation,  the  total  reflected  energy  received  by  the  radar 
may  be  used  to  characterize  the  target  in  terms  of  detectability  and  measuring  ability  of 
the  radar.  The  ability  of  a  radar  to  detect  and  track  a  target  can  be  shown  to  be  a  function 
of  the  average  power  of  the  transmitter,  the  time  the  target  is  illuminated  by  the  radar 
beam,  and  the  geometry  of  the  radar-target  situation  (1:4). 

An  important  defined  quantity  based  on  the  geometry  of  a  target  is  called  radar  cross 
section  (RCS).  RCS  (<t)  is  defined  as 

=  47r  X  -7^  (2.1) 

wliere  I'r  ih  defined  as  the  reflected  power  per  unit  .solid  angle  in  the  direction  of  the  source, 
and  'k,  i.s  defined  as  the  power  per  unit  area  of  the  transmitted  signal  (1:66,  110).  The 
tinit.s  for  (T  are  generally  nr  or  dlhir.  If  a  target  were  to  scatter  the  radiation  uniformly, 
tlie  RChS  would  be  the  area  from  which  the  power  was  e.xtractcd  from  the  incident  wave 
(1:66).  If  the  target  can  lie  modeled  as  a  sphere  with  constant  area  cross  section  from  all 
viewing  angles,  the  RCS  may  be  modeled  as  a  single  value  ( 1:80).  The  larger  the  value  for 
RCS,  the  larger  the  <|iiantity  of  reflected  energy  or  target  echo. 

The  eclio  returned  by  a  .simi)le  point  target  will  be  an  exact  reproduction  of  the 
transmitted  signal.  However,  the  signal  i.s  shifted  in  time  due  to  range  delay,  shifted  in 
fre(|uency  by  the  Doppler  shift  due  to  the  target’s  radial  velocity,  and  shifted  in  amiilitude 
due  to  the  geometry  of  the  radar  and  target  .situation  ( 1:2  3).  Hy  analyzing  the.se  shifts 
in  frequency,  the  range  and  velocity  of  the  target  may  be  determined. 
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2.2.1. 1  Radar  Functions.  There  are  two  basic  functions  carried  out  by  a 
radar;  search  and  detection  (29:4).  Search  is  the  methodology  used  by  the  radar  to  look 
for  targets  within  a  specified  field  of  view.  Detection  is  the  ability  of  the  radar  to  iden¬ 
tify  a  target  in  its  field  of  view.  These  terms  are  independent  of  the  type  of  radar  being 
discussed.  However,  the  method  of  employment  varies  for  different  types  of  radars. 

For  mechanical  radars,  the  search  methodology  is  based  on  a  rotating  antenna  or 
rotating  feedhorn.  The  assembly  may  be  sending  energy,  receiving  energy,  or  both.  Another 
name  for  the  rotating  antenna  is  mechanical  tracker  and  is  the  name  most  often  used  in 
the  SSN.  If  the  same  antenna  transmits  and  receives,  the  system  is  called  a  mono-static 
system.  However,  if  separate  antennas  transmit  and  receive,  the  system  is  referred  to  as  a 
bi-static  system. 

For  a  phased-array  radar,  the  searching  methodology  is  based  on  electronically  chang¬ 
ing  the  phase  of  the  transmitted  signal.  The  face  of  the  radar  is  composed  of  groupings  of 
electronically  steerable  antennas.  The  individual  antennas  emit  phase-coherent  radiation 
to  emit  a  plane  wave  of  radiation  in  the  desired  direction.  However,  since  the  phased-array 
radar  is  not  limited  to  a  direction  normal  to  the  antenna  as  the  mechanical  radar  is,  the 
search  methodology  varies  greatly  from  the  methodology  of  the  mechanical  tracker  (29:8). 

The  search  philosophy  for  each  type  of  radar  is  different  based  on  its  strengths  and 
limitations.  However,  both  methods  are  based  on  the  probability  of  a  target  being  in  a 
specific  sector  of  observation.  While  a  mechanical  tracker  may  search  in  a  circular  pattern, 
the  probability  of  detecting  the  target  improves  if  the  location  of  the  target  can  be  limited 
to  a  certain  sector  for  search.  In  a  similar  manner,  the  phased-array  develops  an  « jmsteriori 
probability  of  a  target  being  in  a  certain  cell  of  observed  space.  The  search  is  then  begun 
in  the  cell  with  the  highest  probability  of  containing  a  target  (29:8). 

Detection,  the  second  function  of  a  radar,  is  the  process  of  determining  the  pre.senc.e 
of  a  target  in  the  presimce  of  competing  electromagnetic  signals.  'I'hese  competing  signals 
arise  from  many  .souices.  'Fhc  most  common  sources  of  these  signals  are  hackground 
radiation,  undesirable  echo,  or  the  radar  receiver  (1:1).  The  limiting  precision  (standard 
deviation)  of  angular  measurements  associated  with  target  detection  will  be  on  the  order  of 


one  tenth  of  the  half-power  beamwidth  for  the  targets  which  can  be  distinguished  against 
their  background  radiation  (1:54). 

Assuming  the  radar  search  method  locates  and  then  detects  the  target,  the  electro¬ 
magnetic  energy  may  then  be  used  to  determine  several  characteristics  of  the  target.  The 
characteristics  of  interest  are  velocity,  range,  azimuth  and  elevation. 

The  time  delay  between  the  transmitted  pulse  and  the  corresponding  received  pulse 
will  be  an  indication  of  the  target  range.  This  relation  ship  may  be  expressed  as: 

9 1? 

AU  =  —  (2.2) 

c 

where  c  is  the  speed  of  light,  Air  is  the  return  delay  time  of  the  pulse,  and  R  is  the  range 
(1:3). 

The  velocity  of  the  target  may  be  calculated  from  the  shift  of  the  center  frequency 
of  the  radar  pulse.  The  center  frequency  of  the  returned  pulse  will  be  shifted  from  the 
transmitted  pulse,  ft,  by: 


ft  +  Id  —  ft 


(C  +  Ur) 

{c-v,) 


(2.3) 


where  is  the  frequency  of  the  Doppler  shift,  c  is  the  velocity  of  light  in  a  vacuum,  and 
Vr  is  the  radial  velocity  of  the  target  (1:3). 

The  remaining  characteristics  are  azimuth  and  elevation.  With  the.se  additional 
pieces  of  information,  the  position  of  the  target  may  be  determined  in  detail.  To  deter¬ 
mine  azimuth  and  elevation,  measurements  arc  taken  <iirectly  from  the  mechanical  devices 
accomplishing  the  tracking  (mechanical  tracker)  or  from  the  electronics  controlling  the 
wave  front  (phaseil-array). 


SSN  Radar  Scnitors.  There  are  three  types  of  radar  .sensors  in  the 
S.SN:  mechanical  radars,  plunsed-array  radars,  and  a  radar  interferometer.  Mechanical 
radars  are  either  fan  type  or  steerable  trackers.  The  fiin-lype  radars  are  largo  fixed  antennas 
with  mechanically  moving  feeds  which  scan  a  swath  of  space  a  couple  degrees  above  the 


horizon.  Primarily  designed  to  detect  incoming  ballistic  missiles,  they  can  also  detect 
orbiting  objects  as  they  pass  through  the  radar’s  field  of  view  (FOV)  (26:6).  Mechanical 
steerable  tracking  radars  use  dish-type  antennas  and  can  track  only  one  object  at  a  time. 
Most  radars  of  this  type  are  used  to  track  deep-space  objects. 

Phased-array  radars  are  the  backbone  of  the  SSN,  providing  over  60  percent  of  the 
observations  sent  to  the  SSC  (17:585).  They  electronically  steer  the  tracking  beam  by 
phasing  the  energy  emitted  from  thousands  of  small  transmitters.  They  are  capable  of 
directing  the  beam  in  many  directions  and  switching  targets  in  milliseconds.  Thus,  they 
can  simultaneously  track  several  hundred  objects  (17:585)  (26:6). 

The  one  radar  interferometer  in  the  SSN  consists  of  three  transmitters  and  six  re¬ 
ceivers,  positioned  roughly  along  the  33rd  parallel  between  Georgia  and  California  (23:40). 
Each  transmitter  and  receiver  is  approximately  30  feet  wide  and  2  miles  long.  Together, 
they  create,  in  effect,  a  radar  fence  5,000  miles  long  and  15,000  miles  high  capable  of 
detecting  all  satellites  with  an  inclination  greater  than  33  degrees^  (17:585). 

2.2,2  Optical  Sensors.  An  optical  sensor  must  also  search  for  and  detect  a  satellite 
crossing  the  sky  to  provide  data  to  update  orbital  elements.  As  the  sensor  tracks  satellites 
across  the  sky,  changes  in  right  ascension  and  declination  are  recorded.  These  changes  in 
angles  can  be  converted  into  orbital  elements  for  the  target  satellite.  The  accuracy  of  the 
sensor  in  measuring  these  angles  directly  affects  the  accuracy  of  the  orbital  elements. 

The  basic  requirements  for  an  clectro-optical  tracking  {Icvice  arc:  sensor,  positioning 
sy.stem,  and  a  command  and  control  system  for  the  positioning  system  (6:70).  More 
specifically,  the  system  must  comprise  a  sensor,  gimbal,  tracker,  and  gimbal  control. 

The  seiusor  is  composed  of  an  electronic  detector,  optics,  and  associated  electronics. 
The  Ground-based  Electro-Optical  Deep-Space  Surveillance  (GEODSS)  .sensors  are  the 
primary  optical  sensors  used  by  the  SSN.  GF,Ol)SS  uses  a  low-light-level  charge-coupled- 
device  ((XM)),  computer  analy.sis,  and  large  telescopes  to  provide  observational  data  to 
the  SSC  in  real  time  (7:12-12). 

■’Approximately  85  percent  of  the  current  xatcltile  population.  .See  Figure  5,5. 


The  gimbal  is  a  mounting  device  which  stabilizes  the  sensor  and  provides  control  of 
the  tracking  motion.  The  tracker  is  an  additional  piece  of  equipment  which  identifies  the 
target  and  keeps  the  sensor  pointing  at  the  target.  The  CCD  is  an  electronic  device  which 
records  the  impact  of  photons  on  the  sensor.  The  gimbal  control  is  the  motor,  gears  and 
electronics  required  to  operate  the  gimbal  (6:72-73). 


2.3  Space  Surveillance  Network  Composition 

The  Space  Surveillance  Network  is  a  conglomerate  of  25  ground-based  radar  and 
optical  sensors  used  for  space  surveillance  (23:42-43).  The  25  sensors  are  of  19  different 
designs,  with  only  seven  of  the  25  sensors  being  designed  specifically  for  the  SSN  as  tracking 
sensors  (18:7)  (23:39-43).  The  remaining  19  sensors  were  originally  designed  with  other 
primary  missions,  such  as  ballistic  missile  warning,  missile  testing,  or  scientific  research 
and  development,  and  were  adapted  to  the  SSN  because  of  their  capabilities  (23:39-43). 

Because  of  inherent  limitations,  most  of  the  sensors  of  the  SSN  are  unable  to  track 
objects  smaller  than  10  cm  in  diameter  (17:587).  In  addition  to  the  7,000  objects  larger 
than  10  cm  currently  tracked,  it  is  estimated  that  there  are  48,000  to  one  million  objects 
ranging  in  size  from  one  cm  to  10  cm  in  diameter.  It  is  believed  that  objects  less  than  one 
cm  number  into  the  billions  (17:587)  (23:39). 

The  sensors  of  the  SSN  are  operationally  divided  into  three  categories  based  on  which 
agency  has  operational  control  over  the  .seasor  and  when  the  sensors  provide  support  to 
the  SSN.  Those  categories  are:  dedicated,  collateral,  and  contributing  sensors. 


2,3.1  Dalictttrd  Sensors.  Dedicated  sensors  are  tho.se  with  a  primary  mission  of 
space  surveillance.  'I’here  are  seven  derlicated  semsors  in  the  SSN  with  the  majority  of 
them  being  optical  systems.  The  premier  rledicated  system  is  the  (IMODSS.  (iKODSS  was 
rlesigned  to  replace  the  Baker  Nunn  camera  system  (7:12-12).  There  are  four  operational 
(fl'lODSS  sites  (with  one  more  planned)  roughly  spaced  evenly  around  tlu*  globe  to  give 
complete  coverage  of  all  .satellites  in  gmsynchronous  orbit  (17:.58(>).  'I'he  operational  sites 
are:  .Socorro,  N(*w  Mexico;  'I'aegu,  South  Korea;  Maui,  Hawaii:  and  Diego  (larcia  in  the 
Indian  Ocean  (2.3:39). 


The  Maui  Optical  Tracking  Identification  Facility  (MOTIF)  is  co-located  with  the 
GEODSS  site  at  Maui.  It  is  similar  in  capability  to  the  GEODSS  systems  but  also  has  an 
infrared  detection  capability  (23:39).  Both  of  these  optical  systems  are  limited  to  night 
observations  in  clear  weather  (23:39). 

The  radar  at  Eglin  AFB,  Florida  is  the  only  dedicated  phased^array  radar  sensor 
in  the  SSN.  It  is  also  the  only  phased-array  radar  capable  of  tracking  both  near-earth 
and  deep-space  objects  (23:39).  The  radar  interferometer,  or  Naval  Space  Surveillance 
(NAVSPASUR)  System,  operated  by  the.Navy,  is  also  a  dedicated  sensor. 


£.S.S  Collateral  Sensors.  Collateral  sensors  are  those  sensors  operationally  con¬ 
trolled  by  USSPACECOM  with  a  primary  mission  other  than  space  surveillance.  They 
support  the  SSN  when  not  performing  their  primary  missions.  There  are  ten  collateral 
sensors  in  the  SSN.  They  consist  primarily  of  the  phased-array  radars  ringing  the  North¬ 
ern  Hemisphere,  watching  for  ballistic  missile  launches. 

The  PAVE  PAWS  system  consists  of  four  identical  two-face  phased-array  radars  with 
a  primary  mission  of  SLBM  detection.  Space  surveillance  is  their  secondary  mission  (23:40). 
The  radars  are  located  at:  Cape  Cod  AFB,  Massachusetts;  Beale  AFB,  California;  Robins 
AFB,  Georgia;  and  Eldorado  AFB,  Texas.  These  radars  track  only  near-earth  objects 
(18:7). 

The  Ballistic  Missile  Early  Warning  System  (BMEWS)  consists  of  a  mechanical  fan 
radar  at  Clear  AFB,  Alaska,  a  two-faced  pha.scd-array  radars  at  Thule  AFB.  Grct'nland 
and  a  three-face  phased-array  radar  at  Fylingdales  Moor,  Uniterl  Kingdom.  'I'hese  radars 
have  a  primary  mission  of  IC'BM  detection  and  a  secondary  mission  of  space  surveillance 
(23:40).  '1  iiese  radars  track  only  near-earth  objects  ( 18:7). 


'I’he  Perimeter  .'\c(|nisitiun  Kadar  .'\tiack  (lliaracterizalion  System  (I’.MICS)  is  a 
phased-array  radar  located  at  Cavalier,  North  Dakota.  It  has  a  primary  mission  of  SLBM 
detection  and  a  secondary  mi.ssion  of  space  surveillance  (23:40).  It  tracks  oiMy  near-earth 
objects  ( 18;7).  ' 

'I'he  last  two  collateral  .sens«>rs  are  the  COBll.A  D.ANF.  phased-array  radar  at  Sheniya 
.‘\FB.  .Maska,  and  the  stwrable  mechanical-tracking  radar  at  Pirinclik.  Turkey.  Both  have 
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a  primary  mission  of  intelligence  collection  and  a  secondary  mission  of  space  surveillance 
(23:39).  They  both  track  only  near-earth  objects  (18:7). 

2.3. S  Contributing  Sensors.  Contributing  sensors  are  those  sensors  not  under  direct 
USSPACECOM  operation  control,  but  which,  by  agreement,  provide  support  to  the  SSN 
when  not  performing  their  primary  mission.  There  are  eight  contributing  sensors  in  the 
SSN. 

The  Air  Force  Maui  Optical  Station  (AMOS)  is  a  optical  telescope  system  which 
performs  scientific  research  and  development  tasks  for  Air  Force  Material  Command.  It  is 
co-located  with  the  MOTIF  and  GEODSS  systems  on  Maui  (23:‘10).  It  is  used  for  tracking 
deep-space  objects  (18:7). 

The  steerable  mechanical-tracking  radars  on  Kaena  Point  in  Hawaii,  and  Antigua 
and  Ascension  Islands  in  the  Atlantic  Ocean  are  used  to  support  missile  testing  out  of  the 
Western  and  Eastern  test  ranges  (23:40).  Those  sensors  all  perform  near-earth  tracking 
(18:7). 

The  Advanced  Research  Projects  Agency  (ARPA)  Lincoln  Tracking  and  Identifl-' 
cation  Radar  (ALTAIR)  and  the  ARPA-  Lincoln  Coherent  Observables  Radar  (AL(’OR) 
on  Kwajalein  Atoll  in  the  Pacific  Ocean  arc  operfiled  by  the  Army  in  support  of  Army, 
Navy,  and  Air  Force  missile  testing  (23:40).  ALTAIR  performs  deep-space  tracking  while 
ALCOR,  perforins  near-earth  tracking  ( 18:7). 

Finally,  the  Millstone  and  Haystack  radars  located  on  Millstone  Hill  in  Ma.ssachn.sells 
perform  scientific  re.search  and  development.  Tliey  are  operated  by  Lincoln  Labs  for  the 
Massachusetts  Institute  of  'I'echnology  (23:40).  Wlien  supporting  the  .S.SN,  they  both 
perform  deep-space  tracking  ( 18:7). 

'lable  2.1  provides  a  summary  of  .sensor  category,  .sen.sor  type  (pha.s»*d-array  radar, 
mechanical-tracking  radar,  radar  interferometer,  or  optical  sen.sor).  and  sensor  mission 
(near-earth  or  <leep-space). 
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Table  2.1.  SSN  Sensor  Category,  Type  and  Mission. 


1  Sensor 
I  Nuniber(3) 


Sensor  Name 


Sensor 

Mission 


211.  212,  213 

GEODSS  SOCORRO 

Dedicated 

EO 

DS 

221,222,223 

GEOD.SS  TAEGU 

Dedicated 

EO 

DS 

231,  232,  233 

GEODSS  MAU! 

Dedicated 

EO 

DS 

241,  242,  243 

GEODSS  DIEGO  GARCIA 

Dedicated 

EO 

DS 

333 

ALCOR 

Contributing 

MTR 

NE 

334 

ALTAIR 

Contributing 

MTR 

DS 

337,401,403,404 

PIRINCLIK 

Collateral 

MTR 

NBand  DS 

344,  ?r?,  ??? 

FVLINGDALES* 

Collateral 

PAR 

NE 

349,  3.i9 

CLEAR 

Collateral 

MTR 

NE 

3.')4,  355 

ASCENSION 

Contributing 

MTR 

NE 

303 

ANTIGUA 

^Contributing 

MTR 

NE 

wmmmi 

MILLSTONE  HILL 

Contributing 

MTR 

DS 

370 

MILLSTONE  UIIF 

Contributing' 

M'l'R 

DS 

382, 383  . 

GOODFELLOW 

(Collateral 

PAR 

NE 

384, 385 

ROBINS 

(.bllatcial 

PAR 

NR 

380,  387 

CAPE  COD 

(Collateral 

PAR 

NE 

388.  :i89 

BEALE 

(Collateral 

PAR 

NE 

393 

^’OBRA  DANE 

^•ollateral 

PAR 

NE 

394.  395 

.'HULE 

(Collateral 

PAR 

NE 

390 

(.Collateral 

PAR 

NE 

398,  399 

Dedicated 

PAR 

NEaiid  DS 

741  747 

NAVSPaSUR 

Dedicated 

RIF 

NE 

932 

KAENA  POINT 

('oiitributing 

MTR 

NE 

951 

MOTIF 

Detlicalod 

O 

DS 

9.52 

AMOS 

('oiitributing 

0 

DS 

*  New  thrre-facc  pliAxxi-aira.v  radar.  Senaor  n.’nilirtv  fur  twu-famt  unknown. 


P.Mt  =  I’hwetl-.Arr.ny  Kadnr 

MTR  =  Mrrhanirat.'lrac-kinK  Uaiiar 

HIK  =!  Radar  Intrrfrtomrlcr 

<)  =  <)|iiiral  M-n.<K>r 

Kt)  s!  Klerlri>-<>|>liral  wnMir 


i)S  =  I)rri>-Space  satellite  trarkinK 
NK  s;  Nrai-Kartli  satellilc  traekins 


(’otnpilrrl  from  O-'eS-A).  (36:16  IX)  ami  (ll:d.i! 
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2.4  Space  Surveillance  Network  Coverage  and  Limitations 

To  provide  the  best  possible  coverage  of  the  space  environment,  USSPACECOM 
has  attempted  to  locate  the  sensors  around  the  earth  based  on  mission  requirements  and 
limitations  of  the  sensor.  All  collateral  and  contributing  sensors  were  located  in  the  areas 
best  suited  to  support  their  primary  missions.  The  GEODSS  optical  deep-space  .sensors 
were  located  as  near  the  equator  and  as  equally  s.  '-.ed  about  the  earth  as  possible  to 
provide  optimal  viewing  geometry  for  all  geostationary  satellites. 

Table  2.2  contains  a  summary  of  the  various  sensor  locations.  Table  2.3  contains  a 
summary  of  the  range,  azimuth,  and  elevation  limitations  for  the  sensors.  Figure  2.1  is  a 
representation  of  the  worldwide  locations  of  SSN  .sensors. 

2.5  .S'/wcf  Sun'eillance  Network  Sensor  .iccuracies 

2.5.1  Radar  Sensor  Error.  Error  is  the  <liirerencc  in  the  true  nosition  of  the  target 
and  the  position  indicated  l)y  the  radar.  The  purpose  of  error  analysis  is  to  provi<le  a 
description  of  this  error.  This  description  will  allow  the  magnitude  of  error  to  be  estimated 
under  any  sot  of  operating  conditions.  In  general,  the  error  will  be  a  function  of  the  time  of 
measurement,  the  value  of  the  (|uantity  to  be  measured,  and  the  environmental  conditions 
present  during  the  measurement  (l:31.H). 

For  piirpo.ses  of  analysis,  error  is  commonly  divided  into  two  components:  .systematic 
(bias)  and  random  { noi.se).  .Systematic  errors  are  charactr'rized  by  their  predictability  and 
n  ay  be  eliminated  from  the  final  measurement.  If  the  error  is  the  same  for  all  |)ossil)le 
ob.servatioii  conditions,  a  single  number  may  be  used  to  repre.sent  the  error  and  then 
subtract<sl  from  the  mea.surement.  In  general,  the  measur«Hl  values  will  vary  around  a 
mean  value  (true  bias)  ( 1:31.'<). 

If  the  bias  ern>r  is  constant  for  e.xleiuled  lengths  of  time  compared  to  th«>  calibration 
and  operation  time  of  the  sy.slem,  then  the  error  may  be  removeui  through  calibration.  If 
errors  are  inlroduceil  a.s  a  function  of  the  tneasureul  ijuantity,  tht*n  tin*  sp«*ed  at  which  this 
t|uanlity  varies  will  delertuine  how  much  of  the  error  appears  a.s  .systematic  and  random 


error. 


Table  2.2.  SSN  Sensor  Locations. 


Sensor  Name 

North 

Latitude 

East 

Longitude 

Altitude 

degrees 

degrees 

meters 

211,212,213 

GEODSS  SOCORRO* 

33.817 

2.33.340 

1508.5 

221,222,  223 

GEODSS  TAEGU* 

3.3.744 

128.608 

782.2 

231,232,233 

GEODSS  MAUI* 

20.708 

203.742 

30.36.5 

241,  242,  243 

GEODSS  DIEGO  GARCIA* 

-7.411 

72.4.32 

msm\ 

333 

ALCOR 

9..395390 

167.479131 

60.7 

334 

ALTAIR 

9..39.3390 

167.479131 

60.7 

337,401,403,404 

mmss3mmmKm\ 

37.90.3219 

39.993182 

887.9 

344,  ???,  ??? 

FYLINGDALES‘ 

54.37 

359.33 

298.0 

.349,  3.39 

CLEAR’ 

64.2911.37 

210.807021 

211.5 

354.  .3.5.3 

ASC:ENSI0N* 

-7.940 

345.598 

97.0 

303 

ANTIGUA 

17.143001 

tmmi 

-1.7 

309 

MILLSTONE  HILL 

42.617404 

288.508954 

121.0 

370 

MILLSTONE  UHF 

42.619.366 

288.508600 

111.1 

.382.  38,3 

GOODFELLOWi 

30.978253 

2.39.447024 

772.1 

384,  38.3 

ROBINS^ 

32..38I227 

276.430640 

83.9 

380.  387 

Tapecoi? 

41.7.32423 

289.401731 

78.6 

388,  389 

BEALE'' 

39.130044 

238.619121 

113.9 

393 

COBRA  DANE 

52.737262 

174.090931 

89.4 

39.»,  395 

THULE' 

\mmmm 

291.7007.39 

422.6 

39() 

FARC.S 

lUftWl 

202.100257 

345.5  1 

398.  399 

30..372425 

273.7851.33 

33.3 

741  747 

33.0 

Vnrimi.s 

Varimwi 

932 

KAENA  POINT 

21. .372087 

201.7332.38 

297.8 

951 

.MOTIF 

iKiymgnvi 

mssm 

30.37.4 

952 

AMOS 

20.708311 

203.742486 

30.36.2 

»  .^VprsRr  IcM'Aliun  Mid  AltUudr  (of  nPM  ro-lucMwl  »rn«>f». 
t  Miltliplr  rn  lm-atr<|  mrrhantr^l-lfarkiiig  wltMits. 

(  At'lual  lUKiilinn  data  (or  nrw  thirt-fatr  ti|ia»rt|.arra)r  raiiar  not  arailahlr.  Kalimaird 
IMKiiliiin  ha.vd  on  (Hwlion  data  of  old  mnrbaniia}- 1  larking  ladai*  ( Jfl.  ifi,  and  .(-li). 

§  Tnfo-fai'r  pliawnl-arrar  raiUi  wilb  la<T»  I'o  lotalpd. 

^  (‘onMilpi  of  dx  wiLwr*  |H»ilioiicd  ronKbiy  at  noitb  laliluilr  and  cvirnlT  tpai'rd  l>ri«nvii 
i-t-t  atnl  J76  raat  |oii{(tttidr. 


(  nin|>i)ptl  from  17  to  S-SS),  and  (l  () 


Table  2.3.  Space  Surveillance  Network  Sensor  Limit.s. 


•Sensor 

Niiinl)er(s) 


.Setusor  Name 


211,212,213 


221,  222.  223 


231,  232,  233 


2-11,  242,  243 


403.  404 


.140.  3.‘)0 


3.1 1 .  3.1.1 


.103 


309 


370 


382.  .18.1 


380.  387 


3.S8.  389 


393 


(JKOIXSS  SOCORItO 


(jt;on.s.s  TAKdii 


GKOtXSS  MAUI 


GKOD.SS  DIECO 
CAIUIA 


AU’OU 


AITAIH 


I'lHlNCLlK 


I’lHlNCLIK 


FYLlN(:t)Al-K.S 


CI.EAH 


A.SCKNSION 


ANTKJUA 


MILLSTONE  HILL 


MILLSTONE  I'HE 


GOODEELLOW 


HOHINS 


CAPE  COD 


HE  ALE 


COHHA  DA.NE 


e<;lin 


Range  I  Elevation  I  Azinmlh 


Min  I  Max  Min  Ma.x  f  .Min  Max 


km  kni  «lcg  |  tlcg  |  ileg  1  <1cr 


.15.1.1  40000  20 


55.1.1  40000  20 


5.15.1  40000  20 


5.1.15  40000  20 


\C)1  E  I'of  iki* *  Ml  4rT'p<*|karv  ^wamc*!  Id  kavc-  40000  liW. 

ante.*.*  olhriwit^  «p<.rirtr«{ 

*  No  tlal^' 4V4i1aKI<-  Eitnif*  itKOirvv 

t  E.tliraalcil  llltlll*  ted  Be-W  iklre-.tan-  {>ls4.*r«)'4<ta>  fsAar  klu-ei  o®  Olbrt  IMVK  P.WV'e 
iwi4i  limiU 


t 'mtiitiln)  fndn  (3.1  3.12  to  3-28)  an.|  (Hi 
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Figure  2.1.  Worldwide  SSN  Sensor  Locations. 


Tliis  definition  of  systematic  and  random  error  implies  there  is  no  rigid  dividing  line 
between  the  two  quantities.  To  break  up  the  quantities,  an  arbitrary  time  must  be  chosen 
where  a  majority  of  error  remains  constant.  The  constant  errors  may  then  be  classified  as 
bias  (systematic)  and  the  rest  accounted  for  as  noise  (random)  (1:322). 

A  statistical  description  of  errors  allows  the  decomposition  of  the  radar  system  into 
several  independent  components  or  elements.  The  components  of  error  are  then  measured 
or  calculated  in  a  root-mean-square  (RMS)  process  and  added  together  to  obtain  an  overall 
system  error.  The  underlying  assumption  is  the  absence  of  correlation  between  the  multiple 
elements.  In  practice,  it  has  been  found  safe  to  ignore  the  correlation  between  multiple 
elements  unless  there  is  a  clear  physical  link  which  would  result  in  a  common  variation  of 
two  or  more  elements  (1:324). 


3.5. 1.1  Noise.  The  principal  source  of  noise  in  a  radar  system  is  thermal  ra¬ 
diation.  This  radiation  is  received  from  the  environment  and  is  characterized  as  either 
internal  or  e.xternal  to  the  system.  External  noise  is  defined  as  natural  background  radi¬ 
ation  while  internal  noise  is  the  interference  created  by  the  electrical  components  of  the 
radar  system.  Additionally,  noise  may  be  created  from  the  clutter  of  unwanted  targets 
picked  up  by  system  side-lobe  patterns  (1:4-5). 


As  radars  advanced,  they  obtained  extended  range  and  accuracy.  .As  part  of  the  de¬ 
velopment  effort,  several  studies  were  performed  to  determine  tin;  effect  of  tliermal  noise. 
Using  a  Gau.s.sian  approximation  of  a  pulsed  beam  shape,  Swerling  of  RAND  Corporation 
derived  the  following  expressions  for  the  limiting  precision  (standard  deviation)  on  acon- 


>  1. 


cr„ 


is  for  (S/N)  < 

1  and  Equation  (2.5)  is  for  (S/N) 

0 

(2.4) 

0 

(2.5) 

-  ao 

\/(-s7/v)« 

where  0  is  the  half-power  heamwidth,  »  is  the  imnibor  of  pulses  received  between  the 
half-power  iroinls  on  the  one  way  pattern,  and  a,„i„  is  the  standard  deviation  ( 1:.51). 


2.5.1. 2  Classification  and  Description  of  Errors.  The  list  below  characterizes 
sources  of  error  in  radar  measurements.  These  errors  may  be.  seen  in  angle  error,  range 
error,  or  both.  In  general,  the  error  is  divided  into  electrical  components,  mechanical 
components,  and  environmental  components.' 

•  Radar- Dependent  Tracking  Errors;  The  bias  components  of  the  errors  are  mostly  the 
result  of  boresight  error,  wind  torque  (in  unshielded  antennas),  and  servo  unbalance 
and  drift  in  moving  antennas.  The  random  component  of  this  error  comes  from 
thermal  noise  and  multipath  effects,  as  well  as  the  random  portions  of  the  bias 
elements  (1:325-326). 

•  Multipath  Error;  The  multipath  effect  comes  from  the  reflection  of  the  main  lobe  by 
the  ground  at  low  elevation  angles.  This  error  is  reduced  once  the  target  rises  more 
than  one  beamwidth  above  the  horizon  due  to  the  relatively  small  beamwidths  used 
for  tracking  applications.  However,  even  very  small  signals  will  result  in  disturbing 
the  null  position  of  the  tracking  servo  (1:327).  Multipath  is  a  major  source  of  error  in 
elevation  measurements.  The  effect  on  azimuth  is  not  as  pronounced,  but  the  effect 
on  elevation  is  serious.  Multiple  reflections  are  most  adverse  when  measurements  are 
being  taken  as  the  target  is  near  the  horizon  (1:55). 

•  Antenna/Servo-Torque  Error:  The  analytical  evaluation  of  this  error  requires  e.'tten- 
sive  knowledge  of  the  open-loop  transfer  function.  The  wind  torque  becomes  greater 
as  the  size  of  an  unshielded  antenna  increases  (1:331-335). 

•  Colliniatlon  and  Drift  Errors;  If  the  electrical  system  of  the  radar  is  stable,  this 
error  depends  on  the  care  exerci.sed  in  calibration.  Certain  environmental  factors 
contribute  to  thi.s  error  and  change  too  quickly  to  be  removed  by  calibration.  To 
conduct  a  complete  review,  the  position  of  the  axis  must  be  determined  as  a  function 
of:  frequency  of  operation  in  the  radar  band,  tuning  of  the  .system,  phase  or  gain 
variations  in  the  receivers,  .signal  strength,  and  temperature  or  intensity  of  thermal 
radiation  (1:335  339). 
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•  Radar-Dependent  IVanslation  Errors:  This  refers  to  the  translation  of  data  into  a 
usable  form  (1:339).  These  errors  are  most  often  the  result  of  physical  problems  with 
the  radar  equipment. 

•  Non-Radar  Components:  These  errors  are  mostly  target  dependent.  They  indicate 
the  dependence  of  detection  on  the  physical  characteristics  of  the  actual  target.  Ad¬ 
ditionally,  atmospheric  effects  may  be  included  in  this  category. 

The  sources  of  angle  error  are  summarized  in  Table  2.4  and  the  sources  of  range 
error  are  summarized  in  Table  2.5.  The  components  of  range  and  angle  error  combine  to 
give  velocity  error  in  the  final  solution. 


Table  2.4.  Classification  and  Description  of  Angle  Errors. 


Error 

Bias 

Noise 

Radar-Dependent 
Tracking  Error 

-Boresight  axis  setting  and 
drift 

-Torque  due  to  wind/gravity 
-Servo  unbalance  and  drift 

-Thermal 

-Multipath 

-Servo 

-Torque 

-Deflection  due  to 
acceleration  of  antenna 

Radar-Dependent 

Translation 

Errors 

-Pedestal  leveling 
-Azimuth  alignment 
-Orthogonality  of  axis 
-Pedestal  flex  due  to 
gravity  or  heating 

-Bearing  wobble 
-Data  gear  non-linearity  and 
backlash 

-Data  takeoff  non-linearity 
and  granularity 
-Pedestal  deflection  due  to 
acceleration 

Target-  Dependent 
'Fracking  Error 

-Dynamic  lag 

-Dynamic  lag 
-Glint 

-Scintillation 
-Beacon  modulation 

Propagation  Error 

-Average  tropospheric 
refraction 

-Average  ionospheric 
refraction 

-Variation  in  tropospheric 
refraction 

-Variation  in  ionospheric 
refraction 

Compiled  from  (1:326) 


2.5.'3  ProjHKjdtiou  Effects.  The  propagation  of  the  electromagnetic  signal  is  a  prob¬ 
lem  for  radar  systems  just  as  it  is  for  communication  systems.  In  fact,  some  .state  that 
the  radar  .sy.stem  is  Just  an  extension  of  a  communication  system  (29:16).  Because  of  the 
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Table  2.5.  Classification  and  Description  of  Range  Errors. 


Error 

Bias 

Noise 

Radar-Dependent 
Tracking  Error 

-Zero  range  setting 
-Range  discriminator  shift 
-Receiver  delay 

-Thermal 

-Multipath 

-Servo 

-Variation  in  receiver 
delay 

Radar-Dependent 
Translation  Error 

-Range  oscillator  (velocity 
of  light) 

-Data  take-off  zero  setting 

-Range  resolver 
-Internal  jitter 
-Data  gearing 
-Data  take-off 
-Range  oscillator  stability 

Target- Dependent 
Tracking  Error 

-Dynamic  lag 
-Beacon  delay 

-Dynamic  lag 
-Glint 

-Scintillation 
-Beacon  jitter 

Propagation  Error 

-Average  tropospheric 
refraction 

-Average  Ionospheric 
refraction 

-Variation  in  tropospheric 
refraction 

-Variation  in  ionospheric 
refraction 

Compiled  from  (1:373) 


importance  of  the  propagation  process,  the  causes  of  error  resulting  from  the  process  are 
further  detailed  below. 


2.5.2. 1  Attenuation.  The  basis  of  attenuation  calculations  in  the  troposphere 
are  based  on  tlie  original  work  of  Van  Vleck  in  1947.  The  result  of  Van  Vleck’s  analysis  were 
equations  which  provided  absorption  per  distance  as  a  function  of  wavelength,  pressure, 
temperature,  and  type  of  gas  in  the  atmasphere  (1:468). 

The  greatest  attenuation  is  caused  by  clouds  and  rain  due  to  the  effects  of  water  vapor 
and  oxygen.  For  X-band  radar  ( 10,000  MHz),  the  attemiaiion  may  he  its  great  as  1  dB 
per  mile.  However,  for  0-band  (.5000  MHz),  the  attenuation  is  only  one-eighth  as  great 
(1:468).  Studies  by  Millinan  in  1958  .showed  that  radars  operating  above  100  MHz  will 
not  suffer  attetiualioii  greater  than  appro.xiinately  I  dB  even  under  the  worst  conditions 
of  ionospheric  density  (daytime  values)  ( 1:479  471). 

An  additional  problem  with  water  vapor  and  oxygen  is  the  ability  of  the  molecule 
to  extract  energy  from  the  radar  wave.  Since  atmospheric  molecules  are  able  to  extract 
energy  from  a  radar  wave,  they  are  al.so  able  to  einit  energy  at  radar  frecpiencies.  'I’liis 
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emission  is  received  as  noise  in  the  radar  receiver  and  is  characterized  by  the  temperature 
of  the  atmospheric  molecule  (1:473-474). 

2. 5. 2. 2  Surface  Reflection.  The  effect  of  surface  reflection  has  received  much 
attention  in  the  study  of  radar  effects.  The  results  of  this  work  indicate  a  coefficient  of 
polarization  remains  near  unity  for  horizontal  polarization  for  elevations  near  0  degrees. 
For  vertical  polarization,  the  coefficient  may  vary  significantly  until  the  system  reaches 
an  elevation  of  10  degrees.  In  general,  there  are  no  rules  for  determining  an  estimate  of 
the  reflection  coefficient.  A  value  of  0.3  is  used  in  cases  where  no  other  information  is 
available.  The  impact  of  reflection  must  be  evaluated  when  the  angle  of  incidence  is  below 
a  minimum  given  by  the  following  equation  (1:475): 

Emin  =  -^^radians  (2.6) 

where  hjt  is  the  altitude  of  the  target  in  feet.  For  a  satellite  with  an  altitude  of  200 
kilometers,  Emin  ^  1  !*• 

Another  aspect  of  surface  reflection  is  clutter.  Clutter  is  any  scattering  element  which 
interferes  with  radar  system  operation  (1:95).  The  major  impact  of  clutter  is  generated  by 
the  side-lobe  pattern  of  the  radar.  This  error  is  radar-design-dependent  and  based  on  the 
antenna  construction  and  transmitted  power. 

2. 5.2.3  Tropospheric  Refraction.  The  effect  of  tropospheric  refraction  on  ra¬ 
dio  communication  paths  is  often  referred  to  as  the  “4/3  earth’s  radius  correction."  Tro¬ 
pospheric  refraction  has  the  effect  of  increasing  the  line  of  sight  path  length  beyond  the 
geometrical  limits.  Early  radar  calculations  u.sed  the  same  methodology  with  good  re¬ 
sults  for  objects  below  50,000  feet.  The  current  process  relies  on  the  e.'cponential  reference 
atmosphere  described  by  the  National  Bureau  of  Standards  ( 1:477  478). 

The  refractive  index  of  air  (for  frequencies  below  approximately  20,000  me)  may  bo 
described  by  the  Smith- Weintraub  constants  in  the  following  ei|ii:vtion: 
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(2.7) 


«  =  (n-.)x.O-f  (p+«) 

where  T  is  the  atmospheric  temperature  ia  degrees  Kelvin,  P  is  the  total  pressure  of  the 
atmosphere  in  millibars,  p  is  the  partial  pressure  of  the  water  vapor  compui.ent,  n  is  the 
refractive  index,  and  is  a  scaled  up  value  referred  to  as  the  “refractivity”  (l:47"-478). 
Refractivity  of  the  atmosphere  has  been  shown  to  vary  by  the  time  of  the:  day  and  time 
of  the  year.  Changes  of  20  to  40  N  units  are  common  for  diurnal  cycles.  This  implies  the 
refractivity  of  a  single  site  may  change  by  more  than  100  N  units  over  the  course  of  a  year 
(1:481-482). 

The  refraction  of  the  troposphere  causes  an  extra  time  delay  in  the  transmission  of 
the  signal  and  an  increase  in  the  elevation  angle  measured  by  the  antenna.  The  ray  follows 
the  path  of  “minimum  delay”  to  get  to  the  target  and  return.  The  errors  in  range  and 
elevation  have  been  found  to  be  proportional  to  the  refractiv'ty  along  the  measurement 
path  of  the  ray  (1:479). 

The  National  Bureau  of  Standards  describes  a  way  tw>  calculate  the  total  bending  of 
a  ray  based  on  the  equation  below: 

AEt  =  Ea-  Ec  =  {bN,  +  fl)  X  10~®radians  (2.8) 

where  Eo  is  the  angle  that  the  ray  arrives  at  the  earth,  E^  is  the  angle  the  ray  would  have 
arrived  at  had  there  been  no  atmosphere,  and  AAlj  represents  the  total  bending  of  the  ray. 
The  values  b  and  o  are  functions  of  the  elevation  angle  E^.  For  -m  elevation  above  5®,  b  is 
approximately  the  cotangent  of  oV  and  a  is  approximately  0.  Therefore  (1:479-481): 

«  N,colE„  X  10"®  radiaius  (2.9) 

'I’he  temporal  fluctuations  in  the  range,  elevation,  and  azinuith  of  the  target  are 
caused  by  variation  in  the  troposphere  drifting  through  the  beam  of  the  radar.  I'licse 
errors  are  in  addition  to  the  regular  bias  errors  caused  by  the  stratified  nature  of  the 


2-19 


atmosphere.  Based  on  the  work  of  Muchmore  and  Wheeler,  the  standard  deviation  of  the 
range  (ar)  and  angle  ((7a)  measurements  may  be  calculated  from: 


(Tr  =  X  10~®radians  (2.10) 

(To  =  \JlN'^LHo  X  2  X  10“®radians  (2.11) 

In  these  equations,  /„  is  the  scale  length  of  the  tropospheric  anomalies  causing  the  fluc¬ 
tuation,  L  is  the  path  length  containing  the  anomalies,  and  is  the  mean  square 
refractivity  variation  of  the  anomalies  (1:485-486). 

2. 5. 2. 4  Ionospheric  Refraction.  The  effects  of  the  ionosphere  must  be  taken 
into  account  for  targets  over  60  to  70  miles  above  the  surface.  The  refraction  effects  are 
all  dependent  on  the  operating  frequency  of  the  system  and  vary  directly  with  the  square 
of  the  wavelength  (1:490). 

The  refractivity  of  the  ionosphere  may  be  written  as  a  function  of  the  radar  frequency: 


Ni  =  (71  -  1)  X  10®  = 


2 


(2.12) 


where  N,  is  the  electron  density  per  e  is  the  charge  of  the  electron,  ni  is  the  electron 
mass,  u7  is  the  frequency,  and  f„  is  the  perniitivity  of  free  space.  If  you  insert  the  values 
for  the  known  constants,  this  equation  reduces  to: 


(2.i:i) 


where  f  is  the  frequency  of  the  radar  and  /,  =  9\/7Vj  is  llie  critical  freciuency  of  the  medium 
(1:491). 


Optical  Sensor  Krwr.  Like  the  radar  sen.sor.  the  function  of  an  optical  .^en.sor 
is  to  ac(|uire  the  target,  and  track  it.  /Vgain,  like  the  radar,  the  physical  limits  of  the 
optical  system  impact  its  ability  to  acquire,  track,  and  point. 
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For  optical  systems,  tracking  is  the  movement  of  the  instrument  line  of  sight  to  follow 
the  movement  of  the  target.  Pointing  is  the  average  direction  of  the  instrument  line  of 
sight.  Therefore,  tracking  error  is  a  time-varying  component  which  measures  the  difFerence 
in  how  the  sensor  should  follow  the  target  and  how  it  actually  follows  the  target.  Pointing 
error  is  the  static  component  which  measures  the  difFerence  in  where  the  instrument  should 
be  pointing  versus  where  it  is  pointing.  To  obtain  a  total  error,  these  components  of  errot 
are  averaged  over  the  dwell  time  of  the  track'*  (32:40). 

2.5.3. 1  Acquisition  Error.  The  acquisition  performance  of  the  sensor  system 
is  aided  by  the  appropriate  design  of  the  CCD  and  lens  subsystems.  The  target  may  be’ 
detected  as  long  as  its  image  occupies  one  or  more  picture  elements  (pixels)  of  the  CCD. 
However,  this  assumes  the  CCD  is  flawless.  Inoperable  pixels  may  result  in  the  target 
being  missed  or  detected  too  late  to  accurately  track  (32:44).  The  missed  or  late  target 
track  will  severely  corrupt  the  data  for  orbit  element  determination. 

The  other  general  sources  of  acquisition  error  arc  air  turbulence,  visual  magnitude 
of  the  targ('t.  and  background  radiation.  The  turbulence  of  the  atmosphere  degrades  the 
sen.sor  ability  to  ar<iuire.  the  target.  Turbulence  increases  the  effects  of  refraction  and 
introduces  deviations  to  the  aximuth  and  elevation  measurements  of  the  target.  Visible 
magnitude  i.s  the  apparent  brightness  of  the  target.  If  the  target  is  not  bright  enough  to 
register  on  tlie  (T’l).  a  ml.s.se{l  or  late  target  error  may  occur.  Background  radiation  al.so 
impacts  target  magnitude.  If  the  background  is  brighter  than  the  target,  the  target  will 
"wasli  out*’  and  not  be  visible  (32:4.'i). 

.A  general  factor  of  all  electronic  equipment  is  the  emission  of  random  thermal  noi.se. 
'I'hernial  noise  is  t  he  generation  of  ehulrons  due  to  the  temperature  of  the  eciuipment.  For 
a  ('(’1).  these  e.\tra  electrons  Will  be  translatetl  into  false  images  for  very  brief  periods  of 
time.  It  is  possible  t«>  eliminate  this  random  error  by  observing  the  target  for  long  periods 
oftime.  However,  the  time  available  for  tracking  may  not  besudicient  ifyou  areattempting 
to  observe  a  l<»w-eaith  .satellite  pa.ssing  quickly  through  the  held  of  view  (32:47). 

rei|iiirr<l  oltecrvalioii  tiiiif  iimwary  for  llw  iniiv'loii. 
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2.5. 3.2  Tracking  Error.  Tracking  is  the  stabilization  of  the  line  of  sight  of  the 
system  while  following  the  target.  Tracking  is  measured  by  a  separate  sensor  which  detects 
the  difference  in  the  sensor  borcsight  and  the  sensor  line-of-sight.  For  precise  tracking,  the 
allowable  error  is  measured  against  predetermined  object  size.  If  the  target  passes  through 
the  allowable  range  of  the  predetermined  size,  the  tracking  mechanism  moves  the  sensor 
to  place  the  target  into  an  optimal  position.  The  measure  of  this  motion  is  called  response 
time.  Response  time  is  based  on  the  acceleration  rate  and  constant  velocity  ability  of  the 
sensor  (32:50). 

Gimbals  provide  the  support,  stability,  and  movement  for  the  optical  sensor.  Gimbal 
performance  may  bo  evaluated  from  four  areas:  angular  range,  balance,  stiffness,  and  bear¬ 
ing  size.  Angular  range  refers  to  the  azimuth  (compass)  motion  and  elevation  (measured 
from  horizon  to  zenith)  motion  of  the  gimbal.  The  desired  azimuth  range  is  360  degrees, 
but  270  degrees  is  acceptable  for  most  tracking  applications.  Elevation  should  cover  the  full 
range  of  0  to  90  degrees.  The  giml)al  should  have  its  mass  cciually  distributed  to  provide 
stability.  The  stiffness  and  bearing  size  are  design  variables  which  depend  on  the  overall 
sy.stem  requirements  (4:1 16). 

In  general,  the  tracking  errors  are  independent  of  the  gimbal  size.  However,  smaller 
systems  are  (luicker  and  easier  to  control  and  are  more  capable  of  rejecting  undesirable 
disturbances.  On  the  other  hand,  large  .systems  are  harder  to  disturb.  Other  errors  may  be 
limited  by  spreading  the  image  over  two  or  more  pi.xel.s.  'I'his  would  reduce  tlie  movement 
of  the  system.  However,  the  size  of  the  image  is  limilerl  by  the  physical  characteristics  of 
the  optics  and  the  range  to  the  target.  For  most  .satellite  tracking  applications,  a  satellite's 
dimensions  are  very  small  in  comparison  to  the  altilmh*.  'I’herefore  the  size  of  the  image 
may  not  cover  multiple  pi.xel.s. 

Various  rlisturbance  errors  such  as  wind,  .seismic  forces,  gyroscope  noise,  and  elec¬ 
tronic  noise  have  all  Ixhui  lueasun’d  or  rotupiited.  'I'hey  may  he  factored  into  the  calcula¬ 
tions  for  position  and  sul)lracle<l  to  obtain  the  final  answer.  'I'he  typical  tracking  error  for 
advanced  l«*lescopes  is  a  standard  deviation  of  less  than  ’lOO  nanoradians  (32:.'>3),  Track¬ 
ing  rale  is  the  velocity  the  seu.s»)r  mu.sl  swivel  to  follow  the  target.  The  fasle'r  the  target 
tnovi's.  the  .sooner  tin*  largc't  leaves  the  sensor  lieM  of  view.  'I’lie  tnajor  causes  of  error 
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in  this  component  are  the  forces  acting  on  the  gear  and  drive  mechanism  in  the  gimbal. 
These  forces  are  defined  as  friction,  coulomb,  and  viscous. 

The  friction  force  (sometimes  called  stiction)  is  the  torque  required  to  break  loose 
the  gears  and  start  motion.  The  coulomb  force  is  a  constant  force  developed  from  the 
motion  of  the  gears  and  is  independent  of  motion.  The  viscous  force  is  directly  dependent 
on  the  rate  of  the  gear  motion.  The  effects  of  the  forces  may  be  overcome  through  the 
use  of  hydrostatic  oil  bearings  and  compressed  air  bearings  where  high  angular  rates  are 
required  (i.e.,  for  a  low-earth  satellite).  The  drawback  to  these  types  of  bearings  are  their 
high  cost  to  manufacture  and  maintain  (32:57).  As  an  additional  improvement  in  gimbal 
operation,  new  in.-trumentatioii  techniques  are  available  to  provide  inertial  control  to  the 
gimbal  (5:154). 

2.5.S.3  Pointing  Error.  Pointing  is  the  re<iuirement  to  maintain  a  constant 
direction  value  for  azimuth  and  elevation  for  the  sensor.  Pointing  error  is  a  static  mea¬ 
surement  taken  when  the  sensor  is  not  moving.  For  n»ost  satellite  tracking  applications, 
this  is  not  applicable  (e.\cept  for  geostationary  orbits  observed  from  the  equator).  The 
current  system  requirements  arc  for  less  than  a  5  microradian  difference  above  20  degrees 
in  elevation  measurement.  The  key  to  pointing  control  is  in  the  thermal  control  of  the 
gimbal  device. 

All  metals  expaml  when  heated.  When  the  gimbal  structure  heats  up  and  e.xpands, 
small  errors  in  pointing  are  detected.  The  key  is  to  control  thee.'cpansion  through  insulation 
or  active  cooling  (32:(*0). 

For  overall  system  performance,  various  muuufacturiiig  errors  may  be  detected  and 
subtracted  out  since  they  will  remain  con-stant  with  time.  Common  gimbal  errors  Include 
axis  misalignment  and  incorrect  nia.s.s  allocation  «>f  tin'  gimbal  structure  (heavier  on  one 
.side  than  the  other). 

Sin-wr  lii».'<  anti  .Sigma.  .Ml  of  these  effects  combine  to  create  uni<|ue  err()rs 
for  each  .s«'nsor  wliich  vary  for  each  observation.  'I'hese  errors  must  b<*  removerl  from 
the  olwervatious  if  an  acnirale  correction  to  the  element  set  is  to  be  oblaineil.  .Most 


major  known  sources  of  error  are  typically  removed  by  the  individual  sensors  prior  to 
forwarding  the  observations  to  the  SSC.  However,  the  SSC  must  still  track  and  acc«'unt 
for  any  remaining  errors. 

The  SSC  uses  a  simple  method  to  quantify  errors.  Sensor  observations  are  gath¬ 
ered  on  a  satellite  for  which  highly  accurate  orbital  data  is  known.  The  ob.servations 
are  compared  to  predicted  observations  using  the  accurate  orbital  data  and  the  residuals 
calculated.  The  residuals  are  statistically  analyzed  and  the  mean  error,  or  bia.s,  and  the 
standard  deviation  of  the  error,  or  sigma,  are  computed  (11:4-1)  (36:76,239)  (24:205). 

There  are  two  methods  used  for  generating  the  highly  accurate  orbital  data.  The  first 
is  using  the  output  from  a  special  perturbations  correction  to  generate  accurate  ephemeris 
from  which  the  accurate  predicted  observations  can  be  obtained  (24:205).  The  second  is 
to  use  ephemcrides  from  an  outside  agency  such  as  the  Defen.se  Mapping  Agency  (DMA), 
GPS,  or  the  Naval  Astronautics  Group  (NAG)  (24:205).  A  common  calibration  satel¬ 
lite  used  is  a  Navy  Transit  Navigation  System  .satellite.^  This  satellite  has  an  onboard 
transponder  which  is  u.sod  to  obtain  highly-accuratc  positional  data.  Kphemerides  ob¬ 
tained  from  DMA  for  this  satellite  have  an  accuracy  on  the  order  of  five  meters  ( 1 1:4-2). 

'I'he  .S.SC  tasks  all  sensors  to  routinely  gather  observations  on  calibration  satellites. 
An  .S.SC  program  called  SPC.ALX  is  executed  daily  to  calculate  the  sen.sor  bia.ses  and  sigmas 
(24:205)  (36:239  241).  'I'liese  values  are  stonnl  in  the  LOWTl  file  for  u.se  in  processing  the 
observations  and  correcting  the  elements  (24:206.1).  They  an*  also  routinely  monitored  by 
SSC  personiK'l  for  <legradati(ins  in  the  sen.sors. 

I'ables  2.6  and  2.7  provide  a  repr«’sentalivr  sample  of  ob.servaliou  .sigmas  and  lii- 
a.ses  for  each  of  the  .sensors  of  the  SS.N'.  The  majority  of  ihe.se  values  are  compiled  from 
the  22  .Sept<Muber  92  daily  weights  ami  bia.ses  message  relea.sed  by  the  SS(‘.  When  data 
was  not  iiiclufled  in  tin*  message  f<»r  a  particular  sensor,  data  from  the  N«>vember  19-''-’< 
.•\KSi*.-\CKCO.\l/l)().A  .Metric  .-Xccuracy  Study  wa.s  iis<*<l  {11:1-2  to -1-6). 


'tor  rx4itii»lr.  NOIt.M)  t'sialojt  Niimlw-r  (i'Juu. 


Table  2.6.  Representative  Sensor  Sigmas. 


Sensor 

Number(s) 

Sensor  Name 

Azimuth  or 

Rt  Anrehsion* 
Sigma 

Elevation  or 
Declination* 
Sigma 

Range 

Sigma 

Range 

Rate 

Sigma 

degrees 

degrees 

km 

km/scc 

iiOcMM 

GEODSS  SOCORRO 

0.005 

0.005 

Note  1 

Note  2 

221,  222,  22.1 

GEODS.S  TAEGU 

0.005 

J0.005 

Note  1 

Note  2 

231,  2;)2,  233 

GEODSS  MAUI 

0.005 

0.005 

Note  1 

Note  2 

241,  242,  243 

GEODSS  DIEGO 
GARCIA 

0.005 

0.005 

Note  1 

Note  2 

333 

alcjor' 

0.01 1 

0.011 

0.090 

0.0007 

334 

AI/I'AIR 

0.01 1 

0.0 11 

0.0007 

3.37,  401 

PIRINCLIK* 

0.022 

0.021 

0.028 

0.0035 

.403,  404 

PIRINCLIK 

0.055 

0.041 

0.0002 

WWKSSMSSM 

0.028 

0.027 

0.056 

0.0019 

349,  3.39 

0.045 

0.0-21 

1.511 

0.0019 

.354.  3.5.5 

mmmmm 

0.007 

0.006 

0.074 

0.0065 

.363 

ANTIGUA 

0.009 

0.009 

■ntiwM 

O.OUao 

.369 

MILLSTONE  HILL 

0.005 

0.005 

■•■liTiM 

0.0001 

370 

MILLSTONE  UllpT" 

0.005 

U.OOS 

0.005 

0.0001 

382,  38.1 

GOODFKLLOVV 

0.029 

0.02  V 

0  059 

0.0020 

384,  .385 

ROHINS* 

0.045 

U.034 

0.064 

l).0025 

.386.  .387 

CAPE  (  01)11 

jumosHii 

0.025 

0.069 

0.0021 

388,  389 

beal'P  “ 

0.020 

0.020 

0.042 

0.0020 

.39.3 

COHRA  DANK 

0.014 

mmm 

0.022 

0.0012 

.394.  395 

Tin  LKI 

0.045 

0.0011 

396 

PARCS 

o.no6 

0.014 

0.055 

398 

EGLIN 

0.045 

0.700 

Note  2 

399 

EGl.lN 

O.Ot.5 

0.018 

0.036 

Note  2 

nnnBQH 

■a\w.MiBgM 

IflIHQQQHII 

0.0 10 

.Nole  2 

932 

■Tniiyiipnni 

0.004 

0.004 

0.039 

0.D0U.9 

95 1 

MOTIF*  i 

0.00.5 

0.005 

Null-  1 

fiSSB 

952 

O.OOS 

0.005 

Note  \ 

1  Note  i 

Nulc-  I Srnsnr  <lor»  nal  frport  laagr  ilala. 

Nul*'  *:  SritMir  <lors  cut  rr|>art  latlUr  tali'  data 
•  Ittfihl  oK-riwtaa  anil  ftrclinalion  rritotlni  fnr  uplirat  >mMJt*  uni). 

I  Nu  data  availaMr.  Far  lht>  irvati’h,  »tKina<  anuimni  »ainr  a»  vawir  U4. 
t  SiRtna*  aic  avctagr  o(  n<ti)litt|r  ro-localwl  m  nra*  ro-lwalrd  w-nwr^. 

}  Katimalnl  ndttta*  for  nrw  ihrn-.facr  phaw^t-artav  radar  bavrU  nn  amaitr  Mjtma*  id  all 
I'AVK  PAWS  «nK.r»  (.ISi  thru  .IR9.  191.  an  !  19i). 

^  Nf>  data  avatlaMi'.  For  thi>  riwatrli.  Hjtma*  a«>umni  lamr  a*  Smtor  169 
y  No  data  alrailabir.  F'or  Ihu  rnraiib.  attlmaa  aaanmnl  •ami'  a»  (iKOnKS  traaota 

(  omptlrtlTrow  (11)  and  |‘ll  4-^t 


Table  2.7.  Rc|)rc.scntat'.vc  Sciist  IJias. 


.S)!n.«Mir 

Niiinbcr(s) 

Sen.',.  -  Name 

Azimuth  or 

Rl  Ascension* 
Bias 

FIcvation  or 
Declination* 
Bias 

Range 

Bias 

Range 

Rate 

Bias 

degrees 

degrees 

Icm 

km/.Hcc 

'211,  '.>12.  21.1 

(IKOD.SS  SOC-'ORKO' 

Note  I 

Note  2 

221.  m.  m 

(iKOixSS  TAKOU' 

Note  I 

Note  2 

■2.1  i.  '2.12.  -231 

CKODSS  MAUI' 

Note  1 

Note  2 

241.  ‘24'2.  243 

Note  1 

Note  2 

333 

ALCOR' 

'BH 

334 

ALTAIR 

0.098 

0.012 

MlltWJi 

-O.OOCI 

337.  401 

FIRINCI.IK’ 

.o.oo.» 

.0.002 

-0.035 

■D.0008 

403.  404 

PIRINCI.IK 

•144.  '!?{. 

FYLIN<iDAI.lLS' 

•l  i  'J,  3.W 

(’LKAR* 

.0.017 

0.01-1 

1.133 

U.D04B 

3.14.  355 

rrTTTrriiT—i 

11.003 

0.Q0r> 

WMmw 

303 

■■EUZiSlil 

-0.003 

o.uoo 

D.U0U5 

MiinunutMiiiiim 

jBKEESHi 

0.003 

0.00-2 

0.0000 

.MII.LStO.NK  iniK' 

382.  383 

(:(>Ot)FKl.l()\VF 

0.013 

-0.022 

0.0  IT 

0.0000 

384.  385 

ROBIN  sT 

0.026 

0.020 

0.0004 

ISti,  .18* 

<  At’K  COI)' 

0.011 

-0.004 

-0.002 

0.0002  1 

.188.  .389 

bfaI.k' 

.0.019 

0.000 

-O.DOOI 

193 

COBRA  DANK 

0.014 

-0.006 

-0  03.S 

b.oool 

394,  395 

•nn'i.F;' 

.0.911 

0.040 

0  009 

-0  0004 

390 

i2j^miiniiiiiiBj 

0.004 

•0  024 

6.0003 

398 

Sotr  i 

li^rr 

Kt;!.rx 

-0.009 

0  .DOS 

0.023  1 

liSflBBHil 

|||||||||_|Qgpgm_ 

.0  011 

"'‘o'.TST"] 

iSBHil 

bool  T 

n— mij 

0  6oob| 

_ 1 

MOtIF' 

:  -'■'Tzzi 

Voir  1  1 

1  952  ^ 

AJJOS^ 

.  i 

1 

'Xo1e'"l''] 

Noir  2  '1 

Nctir  I  Sctiwff  not  fr|«a|t 

Note  ^  Sca*of  ify>r«  nol  rr(kotC  talc  «|ala 

«  Hlfibi  awv’tlMatl  apt!  4r<ll&at|Qa  fr|Kttloii  |oy  o|*<|ca)  arawpt*  «3tllY 

t  .Vt>4a(a  avoiIaMc 

i  atr  avrta^f  €4  multiple  ckk-taratevi  ot  iK-af  tf«»4oralr4  «a*n«aQr* 

1 

...,J 

t  itutla  ( f  *Diii  1 1  i  4  M 
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2.6  Orbit  Ciassifications 

There  are  two  reasons  for  creating  orbital  classes.  I'he  first  is  a  shorthand  to  make 
comnninication  easier;  informal  classes  serve  this  purpose.  The  second  reason  is  because 
they  share  some  characteristic  that  makes  them  worthy  of  a  class.  Gabbard  classes  divide 
the  satellite  population  into  similar  tasking  characteristics. 

2.6.1  Informal  Classes.  Since  the  Space  Surveillance  Center’s  orbit  propagation 
models  handle  orbits  with  periods  less  than  225  minutes  differently  than  those  greater 
than  or  equal  to  225  minutes,  a  satellite  is  typically  classified  as  near-earth  or  as  deep-space 
based  on  its  period  (16:1).  In  addition  to  the  near-earth  or  deep-space  classification,  other 
types  of  orbits  are  often  considered  as  classes.  For  instance,  geosynchronous  satellites  have 
periods  that  match  the  earth’s  rotation  rate.  Geostationary  satellites  are  geosynchronous 
satellites  that  remain  above  the  same  sub-point  on  the  earth’s  surface. 

Besides  period  classifications  there  are  also  inclination  classes,  A  prograde  orbit 
has  an  inclination  less  than  90  degrees  while  a  retrograde  orbit  has  an  inclination  greater 
than  90  degrees.  Zoto  inclination  orbits  are  termed  “equatoiial.”  less  obvious,  but  no 
less  iinporlajit,  are  the  two  critical  inclinations.  Satellites  at  a  critical  inclination  have  a 
stationary  argument  of  perigee.  Other  satellites  ar<>  termed  sun-synchronous  because  the 
a.sceiidiug  node  regresses  at  the  same  rate  as  the  earth’s  angular  rate  about  the  sun. 

J.(1.2  (lahbanl  ('las.s(.s.  For  tusking,  the  SSN  classifies  satellites  using  what  are 
called  the  Gabliard  cla.sses.  'l  here  are  32  Itabliard  cla.sses.  'I’he  32  (iabbard  cla.s.ses  divide 
I  lie  sau'lliti'  populuiion  according  to  perigei*  uud  apogw  altitude.  Tiie  cla.sses  are  one  of 
the  factors  u.^ed  by  the  S.SN  for  tasking  the  tieiworkV  seux  rs.  Table  2.''<  lists  <!»*  actual 
(lasses  and  the  periges*  and  apogee  limits  lor  each  of  lii(‘  rlas.ses.  Figures  2.2  through  2.1 
proviib'  a  iii  'thod  to  visiiali/e  each  of  the  32  ci«isses. 

rile  ri'asotts  for  the  particular  cla.sses  are  (2.’’i:l  l  Ij: 

1.  riie  altitude  ludtm  hiloinrt'Ts  is  a  region  where  .satePiles  will  eN|>erieure  relatively 

•si-vere  alinospherii  drag.  F.ccentric  orliits  of  small  tleliris  will  tominence  to  circulari/e 

when  perigfs  drifts  below  this  limit. 


Table  2.8.  Gabbard  Classes. 


2.  The  altitude  area  between  575  and  1,000  kilometers  contains  atmosphere  of  tenuous 
density  but  sufficient  to  noticeably  perturb  general  perturbations  orbits. 

3.  The  altitude  area  above  1,000  kilometers  does  not  contain  enough  atmosphere  to  be 
a  factor  in  general  perturbations  orbit  predictions. 

4.  The  altitude  limits  of  2,000,  3,000,  5,555,  and  11,110  kilometers  provide  convenient 
references  to  qualitative  differences  in  the  effect  of  eccentricity  or  to  radar  sensor 
single  and  double-bang  range  capabilities. 

5.  The  limit  at  35,000  kilometers  is  slightly  below  true  circular  synchronous  altitude 
and  was  selected  instead  of  true  synchronous  to  ensure  that  Class  32  would  contain 
all  nearly-circular  synchronous  satellites. 


FiRur«‘ 2.2.  Near- liarth  Orbit  (iabhard  (‘la.-ists. 
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Figure  2.3.  Deep-Space  Gabbard  Classes  (High  Eccentricity) 
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Figure  2.'l.  Dwp-.Space  Gabbard  (.'la.sso.s 
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2. 7  Sensor  Tasking  Methodology 

The  sensors  of  the  SSN  are  tasked  by  the  SSC  to  gather  observations  on  all  earth- 
orbiting  satellites.  In  an  attempt  to  make  the  most  efficient  use  of  SSN  and  SSC  resources, 
a  method  called  “Selective  Tasking”  is  used  (35:3-10).  The  three  goals  of  Selective  Tasking, 
as  defined  by  USSPACECOM  Regulation  55-12,  are: 

•  Obtain  the  correct  number  and  dispersion  of  observations  for  each  satellite. 

•  Ensure  the  most  efficient  use  of  the  Space  Surveillance  Network. 

•  Ensure  that  the  observations  on  high-interest  satellites  are  obtained  and  forwarded 
on  a  priority  basis. 

The  three  basic  underlying  concepts  of  Selective  Tasking,  as  defined  by  USSPACE¬ 
COM  Regulation  55-12,  are: 

•  Observation  Regulation.  Sets  upper  and  lower  limits  on  the  number  of  observations 
collected  on  a  given  satellite.  Controlling  the  amount  of  data  gathered  ensures  the 
most  efficient  use  of  the  SSN. 

•  Observation  Requirements.  Observation  requirements  are  dependent  on  the  orbital 
parameters  and  mission  of  the  satellite.  A  routine  satellite  in  a  stable  orbit  will 
require  less  observations  than  a  high-interest,  maneuverable  satellite. 

•  Observation  Dispersion.  Observations  spread  out  around  the  entire  orbit  are  more 
useful  than  the  same  number  of  observations  clustered  in  one  area. 

Observational  data  requirements  in  terms  of  the  number,  quality,  dispersion,  and  pri¬ 
ority  of  observations  will  vary  based  on  a  8atellite‘s  mission,  orbital  parameters,  and  by  the 
sensors  capable  of  tracking  the  satellite.  Orbital  analysts  in  the  SSC  use  three  programs, 
called  RTASK,  DSTASK,  and  BNPLAN,  to  determine  the  routine  tasking  requirements 
for  all  satellites.  As  stated  in  NORAD  Technical  Publication  008,®  RTASK  uses  the  results 
from  a  “System  Capability  Study”  performed  between  September  1973  and  April  1974  to 
determine  the  number  observations  required  for  ail  near-earth  satellites  (24:212,223).  The 

“Dated  6  April  1992,  last  updated  8  October  1991. 
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results  of  this  study,  as  shown  in  Table  2.9,  were  implemented  in  1974  and  have  been  in  use 
since  that  time  (24:212).  We  found  no  references  indicating  that  observation  requirements 
from  a  more  recent  study  were  in  use. 

As  seen  in  Table  2.9,  no  observation  requirements  were  set  for  Gabbard  Classes 
19  through  32  (deep-space  classes).  This  was  because  of  the  lack  of  sensor  coverage  for 
deep-space  objects  at  that  time  and,  therefore,  a  lack  of  a  sufficient  number  of  observa¬ 
tions  to  support  this  empirical  study.  The  operational  requirement  for  these  classes  is 
30  observations  per  LUPI  (length  of  update  interval),  where  LUPI  equal  to  30  days  for 
non-synchronous  satellites  and  60  days  for  synchronous  satellites  (24:213).  The  programs 
DSTASK  and  BNPLAN  are  used  to  recommend  tasking  for  these  deep-space  objects. 
DSTAiiK  is  used  to  determine  the  actual  tasking  for  all  deep-space  sensors  (36:75).  BN¬ 
PLAN  then  uses  the  tasking  set  by  DSTASK  to  generate  an  observing  schedule  for  optical 
sensors  (36:75). 

These  three  programs  are  periodically  executed  (typically  daily)  to  determine  re¬ 
quired  tasking.  In  addition,  tasking  monitoring  programs  also  keep  track  of  the  number 
of  observations  received  .compared  with  the  tasking  level.  This  program  flags  any  satel- 
lites'which  are  not  getting  the  required  quantity  of  observations  (24:225-226).  SSC  orbital 
analysts  can  make  any  necessary  changes  to  this  tasking  based  on  current  mission  require¬ 
ments.  This  sensor-specific  tasking  is  then  forwarded  to  all  sensors  of  the  SSN  using  a 
system  of  numeric  tasking  categories  and  alphabetic  tasking  suffixes  to  describe  the  ob¬ 
servation  data  requirements  for  each  satellite.  The  tasking  categories  and  suffixes  are  also 
used  to  regulate  the  flow  of  observations  from  the  sensors  of  the  SSN  to  the  SSC. 

2. 7. 1  Tasking  Categories  and  Suffixes.  Tasking  categories  define  the  priority  of  get¬ 
ting  observational  data  on  the  satellite  and  the  precedence  for  transmitting  that  data  to 
the  SSC.  They  are  also  u.sed  to  resolve  conflicts  when  multiple  satellites  requiring  obser¬ 
vational  data  are  in  the  sensor.s  field  of  view  at  the  same  time  and  the  sensor  is  unable 
to  gather  the  required  amount  of  data  on  all  satellites.  Tasking  suffixes  define  the  actual 
amount  of  observational  data  that  must  be  gathered  for  the  satellite  and  the  frequency  of 
data  collection.  The  one  exception  to  this  definition  of  category  and  suffix  combination  is 


Table  2.9.  1974  System  Capability  Study  Results. 


Gabbard 

Class 

Satellite 

Type 

Required  Obs 
Per  LUPI 

Average 

Obs/day 

1 

Payload 

7 

30 

4.3 

1' 

Rocket 

6 

20 

3.3 

'  1* 

Debris 

5 

-f30 

■E32S 

Payload 

7 

20-30 

2 

Rocket 

7 

20 

2.9 

2» 

Debris 

6 

+30 

+5.0 

3 

Payload 

11 

12 

1.1 

3 

Rocket 

10 

13 

1.3 

3  . 

Debris 

9 

13 

1.4 

4» 

Payload 

6 

30 

5.0 

Rocket 

7 

30 

4.3 

4' 

Debris 

7 

20 

2.9 

5 

Payload 

11 

14 

1.3 

5 

Rocket 

11 

16 

1.5 

S 

Debris 

11 

15 

1.4 

6 

Payload 

13 

12 

6 

Rocket 

13 

16 

1.2 

6 

Debris 

14 

1-2 

7* 

Payload 

8 

20 

2.5 

7 

Rocket 

7 

14 

2.0 

7 

Debris 

8 

15 

1.9 

8* 

Payload 

10 

16 

1.6 

8 

9 

15-20 

1.7-2.2 

8 

Debris 

10 

15 

1.5 

9 

Debris 

14 

15 

I.l 

11' 

Payload 

6 

30 

•5.0 

11' 

Debris 

11 

+30 

2.7 

12' 

Payload 

10 

15-20 

1.5-2.0 

12' 

Rocket 

10 

20 

2.0 

msam 

Debris 

17 

+30 

1.8 

ij' 

Debris 

16 

+30 

1.9 

14‘ 

Payload 

13 

15 

1.2 

14' 

Debris 

1  H 

15 

1.1 

■[QBi 

Payload 

14 

20 

1.4 

IS' 

Debris 

IS 

30 

18' 

Payload 

17 

30 

1.8 

18' 

Rocket 

13 

30 

2.3 

19.32' 

N/A 

N/A 

Note  1 

Note  1 

Note  I;  No  data  obtained. 

♦  IjUI  =  I.ength  of  Update  interval, 
t  Test  sa  <iple  small,  data  erratic,  or  both, 
t  Did  not  meet  t'2  Icm  vector  ningnitudc  accuracy  goal 
regardleKs  of  observation  rale  tested. 


Compiled  from  (24:212-  213) 


the  NAVSPASUR  sensor.  It  uses  only  tasking  categories  to  define  both  the  priority  and 
amount  of  observational  data  required. 

2. 7.2  Near-Earth  Sensor  Tasking.  The  categories  used  with  near-earth  mechanical 
and  phased-array  radars  are  (36:73): 

•  Category  1:  Events  of  the  highest  priority.  Used  for  satellites  requiring  instantaneous 
observational  data  (i.e.,  new  foreign  launches,  satellites  in  final  stages  of  decay,  and 
near-earth  satellites  performing  maneuvers).  Data  is  sent  by  IMMEDIATE  prece¬ 
dence  unless  FLASH  precedence  is  requested  by  the  SSC. 

•  Category  2:  Special  events  of  high  priority.  Satellites  of  high  priority  but  not  requir¬ 
ing  instantaneous  data  (i.e.,  satellites  capable  of  performing  maneuvers,  de-orbiting 
satellites,  and  domestic  launches).  Data  is  sent  by  PRIORITY  precedence  unless 
IMMEDIATE  precedence  is  requested  by  the  SSC. 

•  Category  3:  All  routine  satellites.  Data  sent  by  ROUTINE  precedence  unless  other¬ 
wise  requested. 

Tables  2.10  and  2.11  describe  the  tasking  suffixes  used  with  near-earth  mechanical  and 
phased-array  radars. 

As  mentioned  above,  NAVSPASUR  uses  categories  alone  to  define  both  the  priority 
and  amount  of  observational  data  required.  Tho.se  categories  are  (36:73-74): 

t  Category  1 :  Same  as  Category  1  for  mechanical  and  phased-array  radars  above. 

•  Category  2:  Same  as  Category  2  for  mechanical  and  phase<l-array  radars  above. 

•  Category  3:  Satellites  with  orbital  parameters  making  them  diflicult  to  track  and, 
therefore,  retiuiring  continuous  observations.  Kicka poo- referenced^  olwervalioiis  re¬ 
quired  on  all  passes.  Data  is  .sent  by  ROUTINE  precetlenre. 

•  Category  4:  Satellites  in  stable  orbit.s.  One  Kickapoo  referenced  observation  from  the 
most  westerly  pass  during  each  succe.ssivo  24-hour  period.  Data  is  .sent  by  ROUTINE 
precedence. 


Msklcapoo  in  llir  iiiimt*  of  the  town  wherr  ibr  main  .NAVSI’.-V.Stlll  rrt-rivrr  is  locattsl. 


Table  2.10.  Near-Earth  Mechanical-Tracking  Radar  Tasking  Suffixes. 


Tasking 

Suffix 

Description 

A 

Maximum  data  on  ail  available  passes. 

B 

1  1/2  minutes  of  data  on  all  available  passes. 

C 

11/2  minutes  of  data  on  four  passes/day. 

D 

1  minute  of  data  above  15°  elevation,  centered  about  culmination,  for 

2  passes/day  separated  by  12  ±  4  hours.  Used  for  calibration  satellites. 

E 

I  observation/day.  Select  portion  of  pass  providing  the  best  quality  data. 

F 

1  1/2  minutes  of  data  on  2  passes/day. 

G 

1  observation/pass  for  2  passes/day.  Select  portion  of  pass  providing  the 
best  quality  data.  Use  1  ascending  and  I  descending  pass  when  possible. 

H 

3  observations/pass  for  all  available  passes. 

J 

10  observations/pass  for  all  available  passes. 

S 

Special  tasking  as  set  by  SSC. 

T 

Final  TIP  tasking;  mskximum  data  on  all  available  passes. 

Compiled  from  (36:78) 


Table  2.11.  Near-Earth  Phased-Array  Radar  Tasking  Suffixes. 


De.scription _ 

Maxiiimtn  data  on  all  available  passe.s. _ 

I.*)  observations/pass  on  all  available  passes. 

5  obsorvations/pnss  on  all  available  pn.s.scs. 

3  observations/' pass  on  all  available  pnsse.s. _ 

1  observatious/pass  on  all  available  passes. _ 

1  observatioii/day. 

2  ob.sorvalioiw/day. 

3  <)bservatiQiis/<lay. 

<1  observatiollH/day■ 

l  observation/day  on  an  ascciuliiig  pn.sit. 

1  ()b.servatioii/«lay  on  a  d«'.sri*iuling  pass. 

2  ub.s«;rvati«)iis/day.  I  nficeiuling  pass  and  1  di>Mccii(liiig  piuw. 
0  observalions/pass  above  7®  t'levalion,  for  2  pas-Hes/day. 
■soparuted  by  12  A  -1  hours,  Um'd  for  calibration  satellites. 

Special  ta.skiug  nHtnircmeiits  as  .set  by  .SS(.'. _ 

Final  TIP  tasking;  inaxinmni  data  on  all  avnilable  pass«‘.s. 


2-3.'> 


Compib'd  from  (36:79) 
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•  Category  5:  Satellites  of  special  importance.  Observation  requirements  as  set  by  the 
SSC.  Data  is  sent  by  ROUTINE  precedence. 

•  Category  6:  Satellites  requiring  low  data  rates.  One  Kickapoo-referenced  observation 
every  36  hours  alternating  between  ascending  and  descending  passes.  Data  is  sent 
by  ROUTINE  precedence. 

Each  sensor  tasked  to  gather  observations  on  near-earth  satellites  receives  a  weekly 
tasking  message  from  the  SSC.  This  message  lists  that  sensor’s  tasking  requirements  for  all 
near-earth  satellites  (36:68).  Updates  to  this  message  arc  made  by  the  SSC  as  requirements 
and  mission  dictate. 

For  the  majority  of  the  satellite  population  (routine  near-earth  satellites),  only  four 
sensors  are  tasked  to  gather  observations  (3).  This  tasking  is  presented  in  Table  2.12.  If 
these  sensors  arc  not  able  to  gather  the  minimum  required  observations,  or  if  circumstances 
require  additional  observations,  other  semsors  will  be  tasked  based  on  the  following  Sensor 
Tasking  Priority  List  (12:Appcndi.\  2)  (3): 

74r),  399,  393,  382,  363,  354,  331,  932,  337,  349,  342.  394,  388.  386,  384 
Table  2.12.  Typical  Tasking  for  Routine  Near-Earth  Satellites. 


.Son.sor 

Number 

.Sen.sor 

Name 

'Ta.sking 

745 

NAVSPASUR 

(•atogory  3  for  all  satellites  with  inclinations  >  .30®. 

399 

ECLIN 

Category  3H  for  all  satellites. 

396 

PARCS 

Category  311  for  all  satellites  with  inciiiiations  >  30*. 

382 

ELDORADO 

Category  311  for  all  satellites  with  incliiialious  <  .50*. 
C'alegory  3F  for  all  .satellites  with  inclinations  >  .50®. 

Compiled  fronj  (12:2) 

2. 7. .7  Dttp-Sjmr  Srnxor  I'u.skiiKj.  The  rati’gorie.s  ii.'ied  with  all  .sensors  that  track 
(Iwp-space  satellile.s  are  (3(>:7  l):. 

•  Calegorv  1:  Same  a.s  Category  1  for  mechanical  anil  phased-array  radars  above. 

•  Category  2;  Same  a.s  Category  2  for  mechanical  and  |)haseil-array  radars  above. 


•  Category  3:  Routine  satellites  and  satellites  that  have  not  been  tracked  in  the  last  4 
to  30  days.  Data  sent  by  PRIORITY  precedence. 

•  Category  4:  Satellites  that  have  not  been  tracked  in  the  last  2  to  4  days.  Data  sent 
by  ROUTINE  precedence. 

•  Category  5:  Satellites  that  have  not  been  tracked  in  iast  1  to  2  days.  Data  sent  by 
ROUTINE  precedence. 

Tables  2.13  and  2.14  describe  the  tasking  suffixes  used  with  deep-space  radar  and  optical 
sensors.  • 


Table  2.13.  Deep-Space  Optical  Sensor  Tasking  Suffixes. 


T{:sking 

Suffix 


Description _ 

Maxinuiiu  data  on  all  available  passes. 

15  ob.servation.s/pass  on  all  available  pa.sses. 

4  observation.s/pas3  on  I  pass/day. _ 

4  observations/pass  on  2  passes/day  separated  by  at  least  15° 

of  true  argument  of  latitude. _ 

4  ob.servations/pafi.s  on  2  |>nsses/day  separated  by  at  least  30“ 
of  true  argunient  of  latitude. _ _ 

3  ob.s(TViitions/pass  on  1  pass/day.  Us«hI  for  calibration  satellites 

4  ob.s*’rvations/pa.s.s  on  a  inininiuin  of  2  pnsses/day  to  verify  po.sition. 

If  object  not  detected  or  orbit  tieviatioii  suspertetl,  change  to  S. _ 

4  ob.servations/pass  on  I  pass/day  every  -ven- numbered  days. 

4  obs«’rvntions/pa.ss  on  I  pas.s/day  every  odd-numlw^red  days, 

4  ob.s<'rvati<)Hs/pass  an  I  pass/day  every  .5  days. 

Spjrcinl  tasking  ns  .set  by  the  SSt\ 

An  in-lrnck  or  cro.'w-track  si'nrdi  once/day.  When  €>bj«-ct  found, 
dinnge  to  snllix  K. 

Final  TIP  tasking.  3  ohservntioiw/pa’is  on  3  paases/dny.  If  object 
not  drleeird,  change  i«»  snllix  S. 

t’ompiled  from  (36:84  86) 


Kuril  sensor  tasked  to  gather  ohser\‘alion.s  on  deep-space  .satellites  rereive.s  a  daily 
tasking  ine.s.sage  from  the  S.SC.  This  inesRage  list.s  the  set'-sor’s  tasking  retpiirempnt.s  for  all 
deep-spare  satellites  (3ii:G.8).  Updates  to  this  message  are  made  by  the  SS(‘  a.s  rinpiireinents 
and  ini.ssioi)  dictate. 
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Table  2.14.  Deep-Space  Radar  Sensor  Tasking  Suffixes. 


Tasking 

Suffix 

De.scription 

A 

Maximum  data  on  all  available  passes. 

B 

15  observations/pass  on  all  available  passes. 

C 

4  observations/pass  on  t  pass/day. 

D 

4  observations/pass  on  2  passes/day  separated  by  at  least  1  hour. 

E 

4  observations/pass  on  2  paase-s/day  separated  by  at  least  2  hours. 

F 

3  observations/pass  on  1  pass/day.  Used  for  calibration  satellites 

M 

4  observations/pass  on  a  2  passes/day  to  verify  position.  If  object 
not  detected  or  orbit  deviation  suspected,  maximum  data  required. 

N 

4  observations/pass  on  1  pass/day  every  even-numbered  days. 

0 

4  observations/pass  on  1  pass/day  every  odd-numbered  days. 

Q 

4  observations/pass  on  1  pass/day  every  5  days. 

R 

Special  tasking  as  set  by  the  SSC. 

S 

An  in-track  or  cross-track  search  once/day.  When  object  found, 
maximum  data  required. 

'I' 

10  observations/pass  on  all  available  pas-ses. 

Compiled  from  (36:84-80) 

2.8  SSN  Scn-wr  Observation  Processing  Methodology 

The  SSC^  receives  observations  from  a  group  of  diverse  types  of  sensors.  Some  of  the 
sensor.s  were  originally  designed  for  other  mis.sions  and  were  adapted  to  the  SSN  becau.se  of 
their  capabilities.  Becau.se  of  these  differences,  not  all  .sensors  report  their  observations  in 
the  same  format.  Table  2.16  describes  all  observation  types  that  the  SSC  is  programmtHl 
to  handle. 

'fable  2. in.  Observation  Data 'lypes. 

^  Observation  Ob.servational  Data 
'I’ype  (lathered  by  the  Sensor 

0  'fime,  range  rate. 

1  'l  ime,  aximuth.  elevation. 

2  Time,  aximutli,  elevation,  range. _ 

3  Time,  azimuth,  elevation,  range,  range  rale. 

I  'I'inie.  azimuth,  elevation,  range,  range  rate. 

azimuth  rate,  elevation  rale,  range  arreleralion 

rime,  right  a.srension.  declination.  _ 

(>  'l  ime,  range.  _ 

Compilerl  fnnn  (24:211) 


Of  the  sensors  currently  comprising  the  SSN,  all  mechanical-tracking  and  phased- 
array  radar  sensors,  with  the  exception  of  EGLIN,  report  Observation  Type  3.  Eglin  and 
NAVSPASUR  report  Observation  Type  2.  All  optical  sites  report  Observation  Type  5. 

The  processing  methodology  of  observations  at  each  sensor  site  is  site  dependent. 
The  sensors  respond  to  taskings  generated  by  RTASK  or  requested  by  the  analyst  at  the 
SSC.  Based  on  the  transmitted  tasking  category  and  siiflix,  the  internal  software  at  the 
site  selects  the  best  pass  and  observations  to  support  the  tasking  (2). 

I'hc  only  software  commonality  between  operations  is  thought  to  be  among  .simitar 
.sensors.  Sensors  which  achieved  initial  operational  capability  in  the  same  time  span  may 
process  observations  with  similar  software.  However,  this  is  not  certain  .since  on-site  pro¬ 
grammers  have  the  ability  to  reprogram  the  systems.  A  recent  example  of  this  ability  was 
reported  to  have  improved  the  processing  ability  of  the  seiusor  at  Eglin  Air  Force  Base 
(22:.''.). 

On  an  annual  basis,  sen.sors  o(  the  SSN  report  more  than  .■)2,000  uncorrelatwl  targets 
( UC'r.s)  to  the  SSC:  however,  only  J.  percent  are  actually  UCTs  (22:.'>).  'I’he  reprogramming 
at  Eglin  was  designed  to  reduce  the  number  of  IfC’l's  by  collating  multiple  ohservatit.ns 
before  labeling  the  target  as  uncorrelatiHl.  The  effort  at  Eglin  resulted  in  a  retluction  of 
uncorrelatwl  tracks  from  17.'.  to  70  and  unrorrelatwl  targets  from  .'l.'iOO  to  .*<00  (22:.’i). 

i}.9  Obacrratioii  untl  Orbital  Ulrmrnl  ('ontrlittn 

J.9.1  SS(  ‘  (lost  rt'ut ion  I'mcrssin^.  All  inroming  observation  data  anti  rlertronir 
messagt*s  are  sent  through  the  sy.slein  input  processor  (SIP).  The  SIP  .serves  as  a  tiller 
to  sort  out  .si'ii.Hor  ob.servations  from  other  electrt.nic  messages.  .All  ob-servations  are  then 
routed  to  the  POHS  program  in  the  .SS('  The  flow  of  observational  data  is  shown 

in  Figure  2..'». 

The  POBS  program  converts  the  ol>servation  frt.m  .sensor  ft.rmat  to  iuterr.al  SSt" 
format  for  prore.s.sing.  .Ailditionally.  the  observations  are  .sorted  and  error  cherketl.  Obser¬ 
vations  which  have  no  errors  other  than  satellite  number  are  routetl  to  the  various  other 


Figure  Procrssing  F'low  of  0l>s4‘rvatioiis. 


programs,  from  Iho  I’OH.S  program,  ob.s«*r*"*tion.s  an*  n)ut{Hl  to  thr«*  pussibli*  programs 
bas«*<i  on  tlicir  "a-s-soriation  status":  KL.MAIN,  TRACK.S,  or  POMP 

Ill**  assuriation  status  (.A.SrAD  of  an  ob.sc'rvation  is  (IrtormitxHl  by  c«>mparing  the 
«ibs«*rv*\l  loration  of  the  satrllitr  to  it.s  pretlirt***!  location.  To  be  fully  a.va>riate«l  (.\Sr.VI’ 
1).  Ihcobservc*!  loration  must  fall  within  Umil.s  established  around  the  predirted  loration 
These  limits  form  a  volume  in  .spare  and  are  referrerl  to  as  height  (Ah  radial  lo¬ 
cation  ),  time  ( At  in-trark  loration ),  and  plane  { .1).  .\s  limits  are  exree<!e*l.  the  association 
status  rhanges.  The  limits  for  these  mea.sures  are:  Ah  10  kilometers.  At  -  0.0,’*  minutes, 
and  .f  O.O.’i  d**gree,s  (2  l:l,vS).  Table  'i.lG  outlines  the  .AST.VT  and  lirail.s  used  bv  the  SSC. 


Fable  2.16.  .XsMsrialion  Status. 
.\ST.\T^  limits 


1  I  Meets  Ab,  and  A' 

I  "'"-I  ■  I'V 


-  1 

-  .  Meets  ,i.  Within  i  x  Ah  and  4  x  At  ^ 

jt. .  —  .... 

I’  3  I  M«"ets  Only  .» 

is  '  S 

« _ _ 


■  .1  limit  exreedeil 

(‘oinpiiesi  ff*im  t'J-i.'I-VHl 


i  <0 


ELM  AIN  verifies  correct  satellite  number  tag  by  computing  residuals  and  comparing 
the  residuals  to  acceptable  threshold  values  of  plane,  time,  and  height.  The  purpose  of 
this  analysis  is  to  determine  the  association  statu.®  of  the  satellite.  The  purpo.se  of  the 
a.ssociation  process  is  to  determine  the  proper  ‘“tag”  for  the  observation  (24: 1.*)”),  if  the 
satellite  has  Association  Status  I  (ASTaT  1),  the  ob.servation  is  routed  to  the  file  VOBS 
(24:159).  Observations  with  ASTAT  2  or  .1  arc  routed  to  the  UVOB  file  (3.5:5-6)  (24:1.57). 
Satellites  witli  .ASTAT  4  arc  routed  to  the  iin-associated  obs»  j  vations  file  (UAOB)  (24:159). 

The  TR.ACKS  program  combines  observations  from  multiple  .semsors  to  create  tracks 
on  satellites  and  build  initial  element  sots.  The.  initial  "lement  set  is  then  refined  by  a 
difforeiitial  correction  proce.s.s.  Once  refined,  the  element  .set  is  compared  to  the  satellite 
file  (SATE)  and  a  degree  of  correlation  is  established.  If  the  TRACKS  program  cannot 
build  an  element  s<*l,  the  observations  are  routed  to  the  HVOIl  file.  .Any  observations 
meeting  .AS'EA'l’  2.  3.  or  4  criteria  ami  dwp-space  object  criteria  are  routmi  to  the  VOIJS 
file  and  the  “deep-space  liold  bucket”  (3.5:.5-7). 

The  EO.MP  program  identifies  observjttions  which  might  bt*  associated  with  a  satellite 
l)reakup  or  new  launch.  POMP  uses  a  plane  check  to  verify  the  ob.servalions.  Wrilied 
observations  are  routed  to  the  launch  ainl  breakup  prtx'C'ssor.  Olwervatioiis  width  are  not 
verified  are  routed  to  tlie  r\'()!J  file  (3.5:.'>-7). 

Tht'  RKT.Ad  prttgram  is  the  nex:  step  in  processing  observations  fn>m  thi'  r\'()ll 
file,  riiis  program  is  automatically  initiated  every  30  minutes  or  when  there  are  MO 
o!).s(‘rvalioiis  in  the  I’VOM  file.  RKTAd  correlates  each  observation  in  the  l'\'()H  file  with 
each  element  in  the  S.\  l'E.  If  ai>  observation  rorrt'late.s  to  .\S  T.A  I'  I  or  if  the  satellite  is 
forcetl  t  igged  to  1.  the  tdiservatioii  is  iliea  routeil  to  the  VOllS  file.  If  the  correl.t.ion  is 
.\sr.\r  2  or  3  and  a  trouble  Hag  (mh-  Table  2.1")  lots  been  set,  the  RK  TAfi  p.ogran. 
niules  the  ob.servation  to  the  p.irtially  a.s.soriatecl  observation  (pAOit)  file.  If  the  .A.ST.VI 
is  3  or  I  atid  a  trouble  tlag  has  not  he«*n  mU.  the  obser\atio:i  is  routed  to  the  l  .AOIl  lib*. 
If  an  observation  is  .A.S  TAT  3  and  one  of  the  thri'e  best  i-.Tiididati*  satellites  has  a  trimide 
Hag  si't.  Ill  'ti  will  route  tlo'  obs«‘rvation  to  the  P.AOH  lib'.  .All  «>liserv.itiotis  in  the  P.\OiI 
file  that  are  mure  than  d.«ys  old  are  routed  to  the  TVOI!  fib*  (3.’»:.'»  •'»). 


Table  2.17.  Trouble  Flags. 


Flag  Name 

Description 

SALAUN 

Launch  Flag 

SAMNVR 

Maneuver  Flag 

SABKUP 

Satellite  Breakup 

S A LOST 

Lost  Satellite  Flag 

SANDK 

Decay  Flag 

Compiled  from  (35:5-8) 


S.9.2  Pijjerrntial  Correction:  Batch  and  Sequential.  DifTcreiitial  correction  i.s  a 
method  by  which  a  new  estimated  slate  (i.c.,  the  orbital  elements)  is  determined  by  cal¬ 
culating  the  state  (orbital  elements)  that  “best  fits”  the  orbit  based  on  a  set  of  sensor 
observations.  The  SSC  n.ses  two  methods  to  difFercntially  correct  element  sets  from  re¬ 
ceived  observations;  batch  and  sequential.  Table  2.18  outlines  the  programs  used  for  the 
types  of  correction  ba.sed  on  the  perturbation  theory  u.sed  for  the  correction. 


'lable2.lS.  Differential  Correction  Frograms. 


Se(ii:ential 

Batch 

Program 

TIuKjry 

Tln'ory 

FL.MAliN 

(Jeneral  Perturbation 

BATCH 

KLKKC 

FLI.NT 

(ieaeral  Perturbation 

Sl'ACKX 

Special  Perturbation 

.MAN  DC 

Special  or  Ceneral  Perturbation 

(’oiii|>ilf<l  from  .'>-10) 


.Set|!ienlial  processing  uses  the  old  matrix  of  elements  ((JM.Vl'  for  general  perturba¬ 
tion  and  II.MA  r  for  spt'cial  perturbation)  and  the  new  obserwilions  or  observation  track. 
This  pror«‘dure  results  in  a  time  weighting  of  the  «)bser  vat  ions  with  m«>re  weight  being 
placed  on  newer  observations.  Hatch  processing  uses  more  observations  over  a  lt>nger  span 
than  »e«|uential  processing  lor  batch  processing,  all  observations  directly  contribute  to 
the  correction  pri>ce.v..  There  is  ni»  time  weighting  of  observations.  However,  there  is  a 
weighting  of  the  seuMjr  observations  based  on  the  accuracy  i>f  the  sensor  (d.'c.'eO). 

The  advanl;;ge>  of  ve<|iirnlial  correction  is  the  speed  of  the  computer  run.  However, 
.sequent i.al  corrections  cm  only  be  run  on  stable  orbits  since  a  .single  bad  observation  will 
■seriously  iiuiiaci  the  correction  process.  \  bad  <»bsejvation  and.  therefore,  a  bad  residual 


will  have  less  of  an  effect  on  a  batch  correction  because  of  the  larger  number  of  observations 
used  (35:5-10). 

2.9.2. 1  Automatic  Element  Set  Maintenance.  Observations,  once  processed 
by  ELMAIN  or  FOBS,  are  placed  into  holding  files.  Once  the  required  time  has  passed  or 
the  nece.;sary  observations  have  been  collected,  the  differential  correction  process  begins. 
However,  because  of  the  large  number  of  satellites,  it  is  not  feasible  to  update  all  of  them 
manually.  To  provide  for  automatic  updates,  there  are  several  programs  used  to  process 
the  observational  data  (.35:.5-10).  The  key  element  to  the  process  is  a  table  called  the 
satellite  control  list  (SCI.). 

Tlie  SCIi  is  a  table  in  the  SCCBX  program.  The  SCCEX  program  controls  the 
e.veculion  and  data  exchange  between  all  application  programs  used  by  the  SSC  (25:119) 
(2'1:20'1 ).  Within  the  SCXTIX  program,  the  control  list  is  used  to  control  the  time  sequence 
of  events  required  to  maintain  the  element  .sets  (35:5-10).  To  do  this,  the  SCL  is  divided 
inlo  two  .secti<»ns.  .Section  1  i.s  for  updating  element  sets  requiring  special  perturbation  and 
S<*ction  2  is  for  updating  elements  re(|uiring  general  perturbation  (35:5-10).  The  flow  of 
the  automated  correction  process  Is  shown  in  Figure  2.6. 

FI,.\I.\IN  is  the  core  of  the  automated  differential  correction  proce.ss.  This  program 
takes  observations  and  performs  a  general  sequential  correction.  If  the  correction  is  succc.s.s- 
ful,  the  s.<telliie’s  (IM.AT  and  .S.ATF  files  are  updated.  If  the  correction  fails,  the  satellite 
is  identified  tor  batch  correction.  F.I.MAl.N  will  not  attempt  to  correct  elentont  sets  of 
satellites  which  have  bwn  tagged  for  batch  correction.  All  satellile.s  with  a  HO'l’F  number 
are  tagged  fttr  .ST.\(;F..\  proces.sing  and  are  not  ntuted  through  F.I.M.^IN  {3.5-..5-10). 

As  part  of  the  automated  prttcess,  the  program  F.LANLX  is  manually  called  by  the 
analyst  on  a  regular  basis.  This  program  measures  the  accuracy  (»f  the  general  pertur¬ 
bations  element  sets.  KI..'\.NI.X  r»>mpares  the  predicted  position  of  the  satellite  with  the 
most  current  verifiiil  «d».servation.  If  the  vector  magnitude  ( VMAd)  of  the  difference  (the 
residual)  is  greater  than  I  I  kilometers  the  satellite  is  selected  and  marked  for  B.Vl'tdl 
corrertum  in  the  .SCI.  ( 1 1 ). 
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Figure  2.6.  Differential  Correction  Process  Flow 


All  additional  automated  program  is  ELTRAN.  ELTRAN  is  time  activated  based  on 
the  expiration  of  the  DUTI  number.  DUTI  is  defined  as  the  time  interval  between  runs 
of  BATCH  or  another  correction  process  (24:203).  The  typical  DUTI  for  routine  satellites 
is  three  (indicating  three  eight-hour  periods)  (13:Atch  1)  (3).  If  the  DUTI  has  expired, 
ELTRAN  will  tag  the  satellite  for  BATCH  correction  (24:204.3). 

BATCH  is  an  automatically  called  program  which  attempts  a  general  perturbation 
correction  by  using  only  verified  observations.  If  the  correction  process  is  successful,  the 
SATF  and  GM  AT  files  will  be  updated.  If  the  correction  i.s  not  successful,  the  satellite  will 
be  tagged  for  correction  by  the  program  ELREC  (35:.')-12). 

ELREC  is  automatically  called  based  on  elapsed  time.  This  program  reads  satel¬ 
lite  numi)crs  from  the  control  list  and  then  attempts  a  general  perturbation  correction. 
However,  uidike  the  BA'l'CH  program,  ELREC  has  the  ability  to  access  the  PAOB  and 
UAOB  file  and  edit  observations  prior  to  the  correction  process.  If  the  correction  process 
is  successful,  the  SATF  and  GMAT  files  will  be  updated.  If  the  process  fa.il8,  the  satellites 


are  listed  on  the  control  list  for  the  lost  object  ditferential  corrector  (LOBDC)  program 
correction.  The  analyst  will  receive  a  message  on  the  console  and  must  manually  correct 
using  LOBDC  (35:5-12). 

2.9.2.2  Manual  Element  Set  Maintenance.  The  program  MANDC  provides 
the  analyst  manual  control  of  the  differential  correction  process.  MANDC  will  directly 
queue  the  ELTRAN  program  to  process  the  observations  and  conduct  the  correction  pro¬ 
cess  (24:204.1).  This  program  is  used  to  process  those  satellites  with  non-routine  or¬ 
bits  (special-interest  satellites).  The  processing  of  observations  remains  the  same  for  a 
manually-corrected  satellite. 

2.10  Summary  of  Past  SSN  Assessments 

Since  the  beginnings  of  the  SSN  there  have  been  several  assessments  of  sensors, 
network  capabilities,  and  tasking  operations.  As  of  September  1992,  assessments  were  still 
being  conducted  with  the  goal  of  continual  process  improvement  (30).  For  the  purpose  of 
this  research,  two  past  assessments  were  evaluated  and  are  summcirized  below, 

2.10. 1  Space  Surveillance  Program  Architecture  Report.  This  study  sought  to  ex¬ 
amine  the  workings  of  the  SSN  and  examine  possible  shortfalls  in  the  system.  The  initial 
assessment  of  the  SSN  Indicated  there  were  two  general  requirements  for  adequate  space 
surveillance:  accuracy  and  timeliness  (31:3-5).  Both  of  these  requirements  are  based  on 
required  actions  and  responses  for  a  wartime  environment.  The  study  found  that  if  the 
timeliness  requirement  was  dropped,  the  accuracy  of  the  current  sensors  met  the  accuracy 
requirement  for  catalogue  updates  (31:3-5). 

Based  on  the  worldwide  deployment  of  sensors  for  the  SSN,  the  flow  of  information 
from  the  sensors  to  the.  SSC  was  of  special  Interest  to  this  study.  The  study  specifically 
iilentified  the  command  and  control  structure,  the  data  processing  capability,  and  the 
communication  systems  associated  with  the  gathering  of  satellite  observation  information 
(31:4-1).  The  study  concluded  that  the  requirements  of  the  catalogue  support  mission 
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is  primarily  a  function  of  information  throughput  capability  and  sensor  tasking  priorities 
(31:3-5). 

2.10.2  Final  Report  of  the  Surveillance  Command  and  Control  Study.  This  study 
was  directed  by  the  Secretary  of  the  Air  Force  for  Acquisition,  Space,  and  SDI  Programs 
in  1988.  The  stated  purpose  of  this  report  was  to  baseline  the  current  capability  of  the 
SSN  to  support  anti-satellite  (ASAT)  operations.  The  primary  interest  of  this  report  was: 
sensor  accuracies,  the  tracking  of  single  versus  multiple  targets,  and  timeliness  (9:1-1).  To 
examine  these  areas,  five  area  studies  were  accomplished:  Flash  Elset  generation.  Orbit 
Prediction  Accuracy,  Individual  Sensor  Calibration,  SSC  Capability,  and  Sensor  Coverage 
(9:1-3). 

The  Flash  Elset  study  was  conducted  to  determine  the  ability  of  a  sensor  to  gener¬ 
ate  an  accurate  Flash  Elset.  The  Flash  Elset  study  was  directly  applicable  to  the  ASAT 
mission.  The  Orbit  Prediction  Accuracy  study  was  conducted  to  test  the  different  prop¬ 
agation  theories  with  respect  to  accuracy,  time  dependence,  and  amounts  of  sensor  data. 
The  Sensor  Calibration  study  was  conducted  to  verify  the  accuracy  of  the  sensors  in  the 
SSN.  The  SSC  Capability  study  was  conducted  to  evaluate  the  operations  of  the  SSC.  The 
Sensor  Coverage  study  was  conducted  to  evaluate  the  locations  of  the  sensors  in  the  SSN 
relative  to  the  ASAT  mission. 

Of  primary  interest  to  this  research  were  the  Sensor  Calibration  study,  SSC  Capa¬ 
bility  study,  and  the  Orbital  Prediction  Accuracy  .study.  The  Sensor  Calibrivtion  study 
provided  mea.suremont  bia.se.s  and  standard  deviations  (a)  for  sensor  measurements.  This 
information  was  input  into  onr  differential  corrector  and  n.sed  to  analyze  the  satellite  pop¬ 
ulation.  The  SSC  Capability  .study  provided  background  information  into  the  operation 
of  the  SSC  and  the  .sen.s()r  ta.sking  methodology.  'I'he  Orbital  Prediction  .\ccuracy  study 
provided  l>ackground  on  theorlntal  pn'dirtiiui  prol)lem. 

The.*.e  area  stmlie.v  resullj'rl  in  several  ronclusions  {9:1-13): 

•  The  roniputer  u.sagr  and  prori-s.sing  time  inrrea.s«Hl  as  the  romplexity  of  tlie  orbit 


prediction  iniulel  inrrea.srd. 


•  The  computer  processing  time  increased  as  the  quantity  of  observations  increased. 

•  Certain  gaps  in  the  sensor  coverage  caused  noticeable  delays  in  the  processing  of 
information. 


2.10.2.1  Sensor  Calibration  Study.  This  study  examined  accuracy  in  terms 
of  azimuth,  elevation,  range,  and  range  rate  measurements  (9:1-10).  Even  though  sensor 
calibration  is  relatively  stable,  ail  sensors  must  be  calibrated  on  a  regular  basis  (10:3-3). 
The  interval  of  calibration  varies  from  sensor  to  sensor,  but  the  process  must  be  routinely 
accomplished  to  maintain  observation  accuracy  (10:2-15). 

Calibration  is  accomplished  by  tasking  the  sensor  to  track  a  satellite  with  a  known 
and  stable  orbit  (10:2-15).  These  observations  are  then  sent  to  the  SSC  and  processed  on 
calibration  analysis  programs.  These  analysis  programs  generate  the  values  for  bias  and 
standard  deviation  (c)  (10:2-15).  The  updated  calibration  results  are  then  distributed  to 
the  sensors  via  electronic  message  on  a  daily  basis  (2). 

This  study  used  the  Navy  Transit  satellite  as  a  known  object  for  sensor  calibration 
(10:3-1).  After  the  readings  were  taken,  the  observations  were  processed  through  the  SSC 
computer  systems  to  generate  biases  and  standard  deviations.  This  study  noted  that  there 
are  multiple  sources  of  error  which  will  impact  the  values  of  bias  and  a.  Examples  of  these 
errors  are:  refraction,  signal  to  noise  ratio,  and  satellite-dependent  physical  characteris¬ 
tics  (i.e.,  shape,  orientation,  and  surface  area)  (10:3-1).  However,  all,  of  these  errors  are 
accounted  for  in  the  values  for  bias  and  a  published  by  the  SSC. 

2.10.2.2  Orbital  Prediction  Accuracy  Study.  To  determine  the  accuracy  of  an 
orbital  prediction  model,  three  studies  wore  conducted.  These  studies  looked  at  historical 
data,  simulation  results,  and  historic  data  from  NAVSPASUR  (9:1-7).  The.se  studies  indi¬ 
cated  errors  are  highest  when  the  time  span  of  data  is  short.  This  error  was  seen  to  level 
out  after  three  hours  of  available  tracking  data  (9:1-8).  This  study  also  found  the  quality 
of  the  prediction  was  directly  proportional  to  the  accuracy  of  the  sensor*  providing  the 
information  (9:1-9). 


In  terms  of  bias  and  er. 


The  evaluation  of  the  orbit  prediction  theories  indicated  that  special  perturbation 
theory  is  always  the  best  predictor.  However,  the  application  of  this  theory  takes  consider¬ 
able  computer  time.  General  perturbation  theory  will  provide  adequate  results  but  there 
is  some  accuracy  penalty.  However,  the  accuracy  penalty  was  determined  acceptable  if  five 
or  six  hours  of  observations  were  utilized  (9:1-9). 

2.10. 2.3  SSC  Capability  Study.  The  SSC  Capability  study  was  important  be¬ 
cause  of  the  ASAT  nature  of  the  original  project.  Researchers  needed  to  determine  how 
sensor  tasking  would  impact  the  generation  of  elscts.  This  study  determined  that  tasking 
was  important  to  ensure  the  proper  dispersion  and  number  of  observations  were  gath¬ 
ered  for  a  satellite  (10:2-14).  To  maintain  the  elsets,  this  study  recommended  orbits  be 
determined  every  1-2  days  for  LEO  satellites  and  7-10  days  for  high  orbit  satellites  ( 1 1:3-9). 
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III.  THEORETICAL  BACKGROUND 


3.1  Element/Covariance  Propagation 

This  section  establishes  the  dynamics  used  in  the  propagation  portion  of  our  dynamics 
model  as  well  as  the  perturbations  analysis  of  our  satellite  constellation.  The  dynamics 
used  are  based  strictly  on  the  J2  perturbations.  Section  3.1,1  shows  the  derivation  of  the 
state  solution  for  the  elements,  and  Section  3.1.2  establishes  the  state-transition  matrix. 


3.1.1  The  State  Solution.  Since  we  are  dealing  with  mean  Keplerian  orbital  ele¬ 
ments,  we  are  interested  in  the  non-periodic  terms’  in  the  time  rate  of  change  in  the 
orbital  elements.  The  terms  in  the  expansion  of  the  disturbing  function  {R)  which  do  not 
include  the  mean  anomaly,  the  only  periodic  term,  are  the  secular  terms.  It  has  been 
shown  the  secular  portion  of  the  J2  disturbing  function  is  (37:83): 
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Reference  (37:47-48)  provides  the  disturbing-function  form  of  the  Lagrange  planetary  ecpia- 
tions: 
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Using  the  Lagrange  planetary  equations,  we  can  derive  expressions  for  the  time  rate 
of  change  in  the  orbital  elements,  f  irst,  we  must  find  the  time  derivative  of  the  orbital 
elements  due  to  i?2,»ec-  The  expressions  for  these  time  derivatives  are  listed  below: 


a  = 

0 

(3.8) 

e  = 
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(3.9) 

i  = 
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(3.10) 
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Mo  = 
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(3.13) 

Strictly  speaking,  the  NORAD  two-line  element  .sets  do  not  contain  the  .semi-major 
axis  (a).  Instead,  the  Ko/.ai  mean  motion  (n*)  is  used.  Solving  this  problem  involves  a 
two-step  process.  First,  wo  must  eliminate  the  semi-major  axis  in  favor  of  the  mean  motion 
(n).  Second,  we  must  express  the  mean  motion  as  a  function  of  the  Kozai  mean  motion. 

First,  u.sing  the  identity  between  n  and  n  (Kqnation  It.ld),  we  rewrite  Kquations 
;{..S  .'1.13  without  rt. 
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Notice  that  the  orbital  elements  which  are  functions  of  time  (i2,u;,  A/q)  have  time  derivatives 
(fl.d;,  A/o)  which  are  themselves  not  functions  of  elements  that  change  with  time  or  with 
time  itself.  Since  the  Kozai  mean  motion  is  defined  as  in  Kquation  3.21,  if  we  replace  n 
with  n«  in  Equation  3. 1.*),  wc  have  to  redefine  the  mean  anomaly  at  epoch  to  be  constant 
(i.e.,  A/o  =  0). 

II,  =  m  +  A/o  (3.21) 

Inti'gration  of  Hciuaiiuns  S.l.l  3.20  with  respect  to  time  yields: 
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,\exl.  -Mncp  the  tw«»  line  orbital  eleroent  runtain  the  Ktvai  mean  motion,  we  neeil 
to  find  lit,  in  terms  of  n,  We  ran  rewrite  liquation  3.23  as: 
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As  long  a.s  in  Equation  3.30  is  small  then  we  can  make  the  approximation  that 
the  Ho  inside  the  parentheses  is  nearly  «*  o- 
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.'\rUially,  liy  nesting  Equation  3.32  four  times  and  snbstitnling  «»  ,,  for  Wo,  no  is 
rorrerl  through  O((ino^'^)^). 
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Equation  3.31  ran  1m*  n’wrillen  as  a  |KiWpr  series. 
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In  order  for  the  power  series  to  converge,  we  assumed  was  small.  Figure  3.1 
is  a  plot  of  the  magnitude  of  t  in  canonical*  units  with  an  eccentricity  range  of  0  to  ,92.* 
Because  the  maximum  mean  motion  in  canonical  units  is  1,  it  is  accurate  to  say  that  the 
value  of  CTio^®  remains  small  for  sa»ollitcs  with  .eccentricities  less  than  .92. 


EPSILON  VALUES  OVEN  AREA  OF  INTEREST  IN  CANONICAL  UNITS 


Figure  3.1.  Kpsilou  («)  Values  over  .Area  uf  Interest  ((’juu)iucal  vui*s). 
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If  Fquation  3.3.’i  is  substituted  into  Kqualion  3.30,  \ve  woiiUl  expert  the  tvvosiiles  to 
be  nearly  wjual.  'I'o  liiul  the  error  iinluriil  in  e.vtrartiiig  n,,  from  h,  o.  subirart  „  from 
the  re.sult. 
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Since  our  approximation  is  good  to  order  if  is  maximized  then  '  -  n^^nitude 

of  the  error  will  also  be  at  its  maximum.  Figure  3.2  shows  the  maxi:..;ijij  error  induced  for 
all  possible  o  &nd  <o  combinations.'* 


Figure  3.2.  Krror  Indurerl  in  Kxirarting  iio  from  n.  o- 

Figure  3.2  .shows  rleaily  that  the  power -.vries  expan.sion  is  very  gcHxl  for  iimst  mean  nkution.s 
ami  even  at  its  worst  it  is  less  than  1  x  lO""  ilrg/day  in  error. 

.Summarizing  the  important  e(|uations  so  far; 
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Now,  since  we  have  the  solution  to  the  stale  variables  for  any  time  (i)  given  the  state 
at  some  initial  time  (tg),  we  can  find  the  slate-tramition  matrix  analytically  (by  taking 
the  partials  of  the  state  solution  with  respect  to  the,  initial  state  variables). 

3.1,2  The  Stale-'fva’xsilioii  Matrix.  The  state-tran.sition  matrix  is  used  in  propa¬ 
gating  the  covariance  of  an  estimated  state.  In  our  case,  the  state  v.-.:abk*s  are: 


e  i  il  gj  M 

and  the  state-transition  matrix  4>(<,/())  is  defined  as: 
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The  partials  in  4»  can  lie  written  moie  exten-sively  as: 
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Eliminating  the  easy  ones: 
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In  order  to  do  the  remaining  six  partials  in  Equation  3.46  \vc  need  the  derivatives  of 
(  and  »(). 
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In  Section  3.1.1,  we  derived  the  state  solution  as  a  function  of  time.  VVd  used  the 
state  solution  equations  to  derive  an  analytic  $.  We  will  use  provided  in  Equations  3.46 
through  3.56,  for  propagating  our  state-covariance. 

3.2  Differential  Correction  < 

This  section  reviews  the  differential  correction  theory  used  in  our  model.  The  estima¬ 
tion  algorithm  we  used  in  this  research  is  a  sequential  estimator,  specifically  a  Bayes  filter 
algorithm,  as  presented  in  (38:55-94).  The  Bayes  filter  is  basically  a  weighted  least  squares 
filter  modified  to  use  the  previous  state  estimate  and  the  covariance  of  that  estimate  as  the 
first  data  input  to  the  filter.  Before  discussing  the  Bayes  filter,  a  review  of  least  squares 
estimation  is  required. 

3.2.1  Least  SqxMre.s  E-^'  motion.  Least  squares  is  the  basis  for  estimation  theory. 
Least  squares  estimates  the  state  of  a  dynamic  system  at  some  time  to  (x(to))  by  using  a 
series  of  actual  measurements,  or  observations  {0{ti))  taken  at  different  times  fj.  In  orbit 
(lotermination,  least  squares  attempts  to  determine  the  orbit  most  likely  to  produce  the. 
ob.sorvational  data.  The  estimate  is  determined  by  minimizing  the  sum  of  the  squares  of 
the  residuals  between  the  actual  ob.scrvations  (0(f,))  and  predicted  observations  (0(<()) 
based  upon  a  reference’  state.  Weighted  least  squares  comes  from  associating  an  observation 
weighting, or  instrument  covariance  matri.\  {Q{ti)),  with  each  observation  vector  Off.;). 

.'\  set  of  ol).servation  data  at  different  times  /j  which  is  linearly  related  to  the  system 
state  at  that  time  can  be  written  as 

6(/,)  =  lliX(li)  -f  Ci 
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(:j..57) 


where  e,-  is  the  true  error  in  the  data  and  //,•  is  the  linear  relationship  between  the  obser¬ 
vations  and  the  state  at  time  ti  (x(t,)). 

In  a  linear  dynamical  system,  the  state  at  time  t,  can  be  written  as  a  function  of  the 
state  at  time  to  as  shown  in  Equation  3.58  below. 


x(/,)  =  $(t.-,i'o)x{to)  (3.58) 

Solving  Equation  3.57  for  e,  and  e.xpressing  it  in  terms  of  state  at  time  to  gives  the  following: 

e,-  =  6(f,)  -  //.  $(t.,<o)x(/o)  (3-59) 

6{ti)  -  TiX{to)  (3.60) 


where  the  ob.servation  matrix,  7),  as  defined  in  Equation  3.61,  relates  the  observations  at 
time  to  the  state  vector  at  the  epoch  time,  to. 


Ti  =  //.$(/,,«„) 


(3.61) 


Using  a  matrix  shorthand  notation,  we  can  define  the  total  observation  data  vector, 
O,  the  total  observation  matrix,  T,  and  tlic  total  instrument  covariance  matrix  (j),  to  be 
as  shown  in  Equations  3.62,  3.63,  and  3.6-1. 


6  = 


o(/,) 


0[h) 


0{tN) 


(3.62) 
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Qi  0  •••  0 

0  Q2  0 

■  •  •  • 

0  0  Qn 

where  N  is  the  total  number  of  independent  observations,  0(<j). 

Replacing  the  true  error  e  and  the  true  state  x(to)  with  the  residual  r  and  the 
estimated  state  x(to),  Equation  3.60  can  be  restated  as 

/ 

r  =  6  -  Tx(/o)  (3.65) 

The  probability  of  obtaining  these  particular  residuals  is  then  shown  by  Equation  3.66. 

P(r)  =  (2jr)-“  \Q\  (3.66) 

To  determine  the.  state  estimate  x  which  maximizes  P(r),  the  quantity  (r^Q~‘r)  must  be 
minimized.  This  results  in  the  minimization  problem 

^  ((6  -  TxfQ-'{6  -  m)  =  0  (3.67) 

which,  when  solved  for  the  estimated  state,  x(/o),  gives 

x(/o)  =  (  Q“'  T  )-'  r''  g-*  6  {3.6S) 

where  the  quantity  is  the  covariance  of  the  estimated  state,  /g. 

In  orbit  determination,  the  (iyiiamics  are  very  non  linear.  However,  if  the  diflerenre 
lietween  the  true  state  and  a  reference  state  (^x)  is  small,  the  uondinear  dynuinirs  may 
be  linearized  about  this  reference  .state,  x*.  In  addition,  the  observation  data  i.s  also  a 
nonlinear  function  of  the  time,  anti  the  slate  at  that  time.  x(M.  ThU  ob.M*rvation 
relationship  can  be  written  as  shown  in  Equation  3.(19. 

0{/,)  =  (;{x(/.).M 
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(3.69) 


This  relationship  can  also  be  linearized  through  the  use  of  a  Taylor  series  expansion 
and  written  in  the  form  shown  in  Equation  3.70 

dG 

e,  «  =  Hibx{ti)  (3.70) 

where  is  the  true  error  in  the  actual  observation  data  and  Hi  is  the  data  linearization 
matrix  for  the  observations  at  time 

The  residuals  between  actual  observation  data  and  calculated  observations  based 
upon  the  reference  state  are  then  calculated  as  shown  in  Equation  3.71, 

r.  =  0(/.)  -  G(x(l,),/,)  (3.71) 


The  state  transition  matrix,  relat<‘s  changes  to  the  state  at  time  t,-  to  changes  at 

lime  /o  as  shown  in  Equation  3.72. 

bx(li)  =  4>(l,,/u)^x(to)  (3.72) 

1  he  re.sidual  vector  r,  is  then  written  as  shown  in  Erpialion  3.73. 

=  TibxUo)  (3.73) 

t'-sinR  the  same  melhuil  that  arriverl  at  Equation  3.Grt  for  linear  least  squares,  the 
correction  to  tin*  e.<>tinia(e(l  state  can  be  determined  a.s  shown  in  E(|uation  3.7d. 

^x(/o)  =  (  rr'  r‘'Q-'  r  (.3.7-1) 

with  the  covariance  of  ilie  e.>timated  .stale  being  ^..s  .shown  in  K(|uation  3.7ri. 


/'s  :::  (  Z  '' ‘  V  )'' 


(3.7r,) 


The  new  estimate  of  the  state  is  determined  as  shown  in  Equation  3.76. 


The  entire  sequential  estimation  process  can  be  summarized  using  Equations  3.81, 
3.83,  and  3.84.  Given  the  prior  estimate  of  the  .state  and  the  state  covariance  and 
Fold)  and  a  set  of  new  observations  (O)  and  associated  covariance  (Q),  a  now  estimate  can 
be  determined. 

3.3  Numerical  Calculation  of  the.  Obnervation  Matrix. 

As  seen  in  Section  3.2,  the  observation  matrix  is  calculated  using  Etiuation  3. .S.'S. 

Ti  =  IlintiJo)  (.I.sr,) 

Thi.s  is  an  m  x  n  matrix  where  in  i.s  the  number  of  observation  measuremeuls  and  n  is  the 
number  of  .state  elements.  It  relates  the  observations  at  time  t,  to  the  state  vector  at  the 
epoch  time,  to-  As  discussed  in  .Section  3.1.  simplifications  were  made  in  the  algorithm 
used  to  determine  the  state  transition  matri.\  (‘f>(/,./o)).  Hecau.se  of  the.se  .simplifications, 
we  did  not  want  to  u.se  E<itiation  if.-X')  to  calculai  7',.  .Since  tin*  .N'OR.M)  orbital  minlel, 
SCJl*'!  was  avaihibh*.  a  numerical  method  for  calculating  this  mutri.x  was  u.seil. 

Given  an  oh.servation  consisting  «)f  four  measurements  and  a  stale  consisting  of  six 
elements,  an  expansion  of  E(|uation  3.s.'»  iHTomes: 
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i'tie  eleiuenls  of  this  matrix  could  Ih-  calrulatiMl  nuiurrirally  h>'  using  the  d<*Iinition 
of  a  derivative.  'I  he  definition  of  a  ilerivative  results  in  the  l•\alu.'%tion  of  the  [i.  j!  element 
of  /',  as  shown  in  Ihjuation  d.-s?. 

ilr-AI,,)  ar/.i.  Aj'itf,  ) 

3  n 


If  Equation  3.87  is  evaluated,  not  as  limAx*-»oi  but  as  Axj,  approaches  an  incremen¬ 
tally  small  value,  the  elements  of  the  observation  matrix,  Ti,  can  be  expressed  as; 

^  Oj(x(<o) -j-  Axk{to)^ti)  —  Qj(x(fo), tj)  .  g, 

dxt(to)  ~  Axt(to)  ^  ■ 

3.4  Variance  Reduction  Techniques 

We  considered  two  variance  reduction  techniques  available  for  our  use.  The  first 
technique  uses  common  random  numbers  (CRNs).  The  second  technique  uses  antithetic 
variates  which  are  random  numbers  that  come  in  pairs  such  that  they  cancel  out  their 
effects  when  averaged.  For  an  excellent  source  on  the  subject  of  variance  reduction  see 
{■21:Chapter  11).  The  following  ic  a  brief  overview  of  these  two  techniques. 

3.4.  /  Common  Random  Numbers  (CRNs).  Common  random  numbers  is  a  variance 
reduction  technique  applicable  to  experimental  testing  of  different  system  configurations, 
'riie  general  principle  behind  the  application  of  CRNs  is  that  differences  in  performance 
betwwii  alternate  combinations,  or  system  configurations,  of  an  experiment  should  be  due 
to  differences  only  in  the  system  configurations  and  not  in  the  experimental  conditions. 
'I’lierefore.  llie  different  system  configurations  should  be  tested  under  as  close  to  identical 
experimental  conditions  as  possible.  In  .simulation,  tbe  experimental  conditions  are  the 
random  variates  generated  for  luse  in  the  model  (21:613-  614).. 

The  ideal  use  of  CRN  is  U)  use  the  same  random  number,  or  random  number  stream, 
for  exactly  the  saiiu'  purpose  in  one  .system  configurations  test  as  another.  'I'lus  is  called 
“synchronization."  This  synchroni/.nti<iu  gives  vou  a  high  confidence  that  the  difference  in 
performaiiC(>  between  <lilfereut  system  configurations  is  tiue  only  to  the  different  configura¬ 
tions,  and  has  no  contriliution  inserted  due  todilferent  experimental  conditions  (generated 
random  variates)  (21:617). 

\'nriittts  (.AWt).  .-Viiiithetic  variates  is  a  variance  reduction  tech- 
nii|ii4*  applicalde  to  a  :.itigh'  system  configuration.  The  genera!  principle  of  .'\Vs  is  to 
perform  experiimmtal  test  on  the  .system  in  pairs  such  that  an  observation  on  one  rtin  is 
n«-gaiively  correlated  t(»  an  ohsiTvatio.-  »  other  run.  If  tin'  two  observations  are  then 
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averaged  and  the  single  data  point  used  in  the  analysis,  that  data  point  should  be  closer 
to  the  expected  value  of  that  observation  than  if  the  two  observations  were  independent 
(21:628-629). 

AV  attempts  to  include  a  negative  correlation  by  using  complementary  pairs  of  ran¬ 
dom  numbers.  For  example,  if  the  first  random  number  of  a  pair  was  a  uniform  0  to  1 
random  number  (Uk),  the  second  number  in  the  pair,  its  complement,  would  become  i-Uk 
where  the  subscript  k  represents  a  particular  uniform  random  number  observation.  The 
fundamental  requirement  that  a  model  should  satisfy  for  AVs  to  work  is  that  its  response 
to  a  random  number  used  for  a  particular  purpose  be  monotonic,  in  either  direction.  As 
in  CRN,  .synchronization  must  also  be  applied  (21:629-630). 


IV.  METHODOLOGY 


The  basic  methodology  we  used  in  this  research  and  analysis  consisted  of  a  four-step 
process: 

1.  Perform  an  analysis  of  the  earth’s  satellite  pop’.iation  in  order  to  select  a  represen¬ 
tative  sample  of  satellites  for  analysis. 

2.  Develop  a  “truth  model”  to  produce  highly  accurate,  simulated  SSN  scn.sor  olwerva- 
tions  of  the  sample  .satellites. 

3.  Develop  a  differential  corrector  to  correct  the  satellites  orbital  elements,  and  calculate 
the  vector  magnitude  of  the  error  betw«H‘n  the  “truth"  po.sition  and  the  {Mxsition 
predicted  by  the  IfS.SPAtTX'OM/NOR.'Vl)  orbital  nunlel.  Run  this  model  for  each  of 
the  repr(*sentative  satellites  u.sing  different  observations  rates  and  correction  intervals. 

•t.  Perform  a  .statistical  analysis  on  this  data  trying  to  determine  a  steady-state  position 
error  for  rlifferent  observation  rate  corr*H-tion  interval  combinations. 

LI  .•{nalyai.'Uff  h'urth  .Satrtlile  Popttlatiou 

There  are  two  primary  rea.sons  for  analyzing  the  .satellite  {Kipulatioii.  The  first  rea.sun 
is  to  rliararteri/e  the  composition  of  earth  orbiting  t>bjects  as  completely  a-s  po.v.ible.  Prior 
to  undertaking  any  ae.aiy>is  of  earth  orbiting  satellites,  an  understanding  of  their  charar 
ti-risiics  anti  compo-sition  is  essential.  The  second  reason  for  performing  this  analysis  is  to 
be  able  to  develop  an  initial  cla-vsifiralion  scheme  to  allow  the  selection  of  a  representative 
sample  of  satellites  for  further  analy.sis  a-s  part  of  this  research  effort. 

f.t.l  Stttrlhlr  ('atnpo\>hon  Anaiy***.  We  clnea- to  examine  the  com|H»sition  of  the 
most  citrreni  .NOR.M)  two-line  element  set  file  availaide  to  us.  This  was  the  March  JIWO 
tw€>  line  element  set  file  f  1990.TLE  1.  To  i|o  this,  a  FOUTR.-\N  program.  REDUCE  TLE. FOR. 

was  written  to  select  the  first  tvcrurtence  «*f  each  satellite’s  two  line  element  .set  from  this 
file  and  to  output  it  inl«»  a  Mathematica  readable  file  OE9003.F1X.  The  OE9003.FIX  file 
riinl.ains  this  first  orcurrence  of  each  satellite  in  the  1990. TLE  file  unless  it  d<M's  not  pass  a 


scries  of  simple  tests  as  summari/cd  in  Appemlix  F.S.'  Kach  entry  into  the  OE9003.FIX  file 
contains  the  epoch,  a  counter  number,  the  NORAl)  catalog  number,  and  the  nine  orbital 
elements  from  the  NORAl)  two-line  element  set:  Kozai  mean  motion  («(,  ),  the  first  time 
derivative  of  mean  motion  divided  by  two  ( n/2),  the  second  time  derivative  of  mean  motion 
divided  by  six  (h/(>),  inclination  (io),  node  (Oo).  argument  of  perigee  (u;,,),  eccentricity  (co), 
bstar  (W),  an<l  finally  the  mean  anomaly  at  epoch  (Mo)- 

Once  in  Mathemalira-readabie  fonual,  we  processed  graphs  of  each  of  the  above 
elements  and  variables  that  are  derivable  from  the  ones  provided,  such  as  the  true  anomaly. 
'I’iie  main  purpose  of  the  graphs  was  to  allow  ea.sy  examination  of  the  distributions  of 
each  variable.  We  were  especially  inlerestiHl  in  two  areas:  correlations  between  any  two 
orbital  elemmits  and  how  the  satellite  piipiilation  fell  into  the  various  (Jabbard  clas.ses. 
On  occasion  we  generatetl  plots  showing  the  relationships  between  thris'  variables.  In 
particular,  we  used  U  variable  plots  to  determine  if  there  is  a  relation  betw<*en  //*  and  the 
«/‘i  and  ii/li  terms.  However,  the  problem  with  this  investigation  was  attempting  to  sw  a 
thr«*<'-dimensional  spac<‘  whi^Ii  ‘.v;un  limilisi  to  a  two  diineiisional  shi'et  t>f  paper. 

^./.2  I’t  rlurlxiliuit.s  .Since  the  J-;  perturbations  are  the  primary  .source  »>f 

perturbing  effects  on  nu«t  earth  orbiting  sateilites,  this  was  the  only  perturbation  effect 
analy/etl.  W'v  wanteif  to  identify  th«‘  magnitude  of  this  |>erturbaiioii  effect  i>ii  the  .satellites 
in  the  turrent  population.  .\.s  sh<»wn  in  .Sectiim  .'l.l.l,  tlie  only  tliree  orhital  elements 
alfectcfl  hy  J5  perturbations  are  the  mean  anomaly,  argument  i>f  j>erigee.  ami  air«*nding 
nolle.  I  he  time  derivatives  of  these  thriT  elements  eieinenis  vsere  |)li>ttet|  a.s  a  functiim  of 
the  ejeineiits  that  affect  the  magnitude  of  the  iKTturhatiotis  tmeaa  mi>lion.  errentrirify, 
and  inrtinalion ).  f  hew  plots  allowed  us  to  vt.suali/e  the  refatisr  pc'^liirhmg  efferts  «»n  the 
satellites  in  the  current  pupulaiion. 

In  addition,  a  pnijiagalion  routine  for  th<-  iliifeieniial  correctoi  iiuHlef  was  miuirisl. 
lids  routine  hail  to  j»»-rform  two  functions,  first,  ileterndne  the  ori-ital  elements  after 
some  propagation  time  giviMi  the  efeme'its  prior  to  projiagation.  .'si'cond.  i!,-termine  ilie 
state  rovariance  matrix  after  a  given  piopagation  time  given  the  state  covariance  prior  to 
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propagation.  As  shown  in  Section  3.1.1,  after  deriving  the  secular  time-rate-of-change  of 
each  orbital  element,  it  was  pos.sible  to  analytically  integrate  the  equations  with  respect 
to  time.  This  allows  the  expre.ssion  of  the  orbital  elements  a.s  a  function  of  time.  By 
differentiating  the.se  expressions  with  respect  to  the  orbital  elements,  it  is  possible  to  find 
the  state  transition  matrix  as  a  function  of  time. 

Had  tliis  not  been  possible,  we  woulrl  have  brnm  forced  to  perform  a  numeriral  in¬ 
tegration  routine  to  find  the  elements  and  state-transition  matrix  after  some  propagation 
time.  We  decid<'d  that  an  analytic  approach  was  preferable  over  a  numeric  a|)proach  due 
to  the  cfunputation-*'  .me  involvwl. 

^.1.3  Clo'^aijication  Srhtmr  Drvrlopmcnt.  An  orbital-element-based  cla.s.sificalion 
.scheme  was  developed  based  on  both  the  analysi.s  of  the  current  composition  of  satellites 
and  the  analysis  of  the  effect  of  perturbations.  Tlir  classes  were  based  strictly  on  only 
the  thr«H‘  orbital  element.s  that  inlluence  the  magnitud<‘  of  the  perturbations.  'I’he  rode 
that  perforitHHl  the  actual  separation  of  all  satellites  in  the  current  population  intr)  their 
resper  tive  cla.sses  was  the  same  ccule  that  derodwl  the  1990.TLE  file. 

.\  basic  a.ssuitiptioii  made  in  the  development  of  this  rlassifiration  scheme  is  that  that 
.sntellite.>  with  simitar  |)erturl)alion  elfects  would  have  similar  observation  retpiireinenls  for 
maintaining  the  orbital  element  sets. 

/. /./  lirprrsrntalirr  Sufrtitfr  SrUrliat!.  .After  the  sateilile  population  was  divide«l 
into  their  vari«»us  classes,  we  selectecl  a  represeulalive  satellite  from  each  class.  I  he  satellite 
closest  to  the  '.O'erage"  satellite  Was  selertetl.  ']o  determine  which  satellite  wa.s  rbwest  to 
the  average,  the  mean  and  variance  of  each  class  was  calculated  for  the  relevant  orbital 
elements.  Then,  the  devi-tfion  from  the  mean  €»f  each  €»rbilal  element  \va*  weighteil  h\ 
the  \arjajici-  «>f  the  element  (smaller  variances  having  larger  significance).  We  selerlosl  the 
satellite  with  the  smallest  overall  .-leviati«»n  a*  «iur  representative  satellite.  In  «»lher  wi»r«ls, 
to  m.vke  our  seb-rtion  we  foriiieit  an  n  dimensi-inal  (iauvsian  <listribution,  ami  «lelermine<| 
which  s.itellite  orrurr«*il  closest  ti»  the  tnean. 


SGP  Program  Library 


III  an  attoinpl  to  .simulate  the  methods  used  by  USSPACK(’OM  as  closely  a.s  possible, 
wo  used  the  SGPd  and  SDP4  orbital  tnodcls  in  use  by  USSPAChX'OM.  The  specific  models 
used  throughout  this  research  come  from  the  SGP  program  library.  'I’liis  library  contains 
a  .set  of 'I’urbo  PascaP  6.0  units  and  documentation  written  by  I)r.  'I’liomas  S.  Kelso  ( 19). 
Th('  main  component.s  .of  this  library  are  the  SGIM  and  SI)P4  orbital  models  which  were 
converted  from  NORAl)  POU'I'R.AX  coiU*  as  published  in  Reference  (1C).  The  remaining 
units  contain  rouliin*s  that  are  either  necimsary  for  SGi’  I’s  operation  or  aid  in  interfacing 
S(iP‘l  with  both  the  truth  model  programs  and  the  dynamics  model  programs.  '!’he  library 
consists  of  the  following  unit.s:  ' 

•  Pull  implemenlalion  of  NOR.'M)  SGP-l  and  SDP  I  mmlels. 

•  SdP  IMir.  Cunlaiu-s  consUnts.  variables,  and  type  di'claration.s  needed  lo  initialize 
SdlUSDPl 

•  S<il*jy  TP.  ('onstants.  variabh's,  and  type  declarations  neetlml  lo  interface  between 

*nd  .SYiP_f ‘O.Vr  (anil  other  programs). 

•  S(iP  .\t.\  Til.  \‘arii»Hs  trigonometric  and  inatbematical  routines. 

•  S(il\  1  IMP.  l  ime  based  routines  fur  converting  among  lime  systems. 

•  .S’f  PPdlti.  (teneral  support  routines  for  marbine  dependent  features. 

•  .''(ip  ('()\\ .  Routines  for  converting  *.\vo  line  data  and  StiP  l  slate  vectors. 

•  >r»7’  /.Y.  Roulines  to  sim|>’*f\  P  put  oI  data  iwitb  error  cberkingl. 

•  S(iP  (it  T.  Roulmes  ti>  output  program  results  in  s(;tndard  fortuats. 

•  sap  alt'*.  Observer  dejK-udrnl  routines  fi»r  rairtilaling  tojuMenlrif  inforsiiation. 

•  \tl\.\l.\.\.  .Minimiim/niavimum  functions. 

•  ''(U  \li.  Routines  for  calculating  the  posituut  «*f  the  sun  and  if  a  satellit-  is  in  e.^rth 
tiinbral  ellipse. 

a)  t*  4  lB(r$aat|<vStsi 


A  copy  of  the  complete  SGP  Library  Documentation  is  located  in  Appendix  A.  The  source 
code  listings  of  ail  SGP  Library  routines  used  in  this  research  are  in  Appendix  B. 

4.3  Truth  Model 

The  purpose  of  the  “truth  model”  is  to  produce  highly  accurate  “truth”  observations. 
Tliese  obser''ations  are  used  to  simulate  the  observations  gathered  by  sensors  of  the  SSN 
for  a  specific  earth-orbiting  satellite.  To  allow  a  Monte  Carlo  analysis,  the  model  is  capable 
of  producing  multiple  random  sets  of  observations  at  various  specified  observations  rates. 
1'he  methodology  u.sed  in  the  selection  of  the  number  of  randon'  sets  and  observation  rales 

I 

is  presented  in  Section  4.'>. 

4.3.1  Model  DcvelopvienL  The  primary  element  re<iui.etl  for  thic  truth  incdel  is 
a  highly  accurate  orbital  propagator.  A  commercially  available  orbital  model,  the  High 
Precision  Orbit  Propagator  (HPOP)  program.  Version  l.l,  produced  by  Mirrorasm,  Inc. 
of  Torrai.ee.  <^\  was  iiswl  for  our  re.searrh.  HPOP  u.se.s  the  Range* Kulta-Pehlberg  method 
of  order  7(S)  to  integrate  the  etinationsuf  motion.  St  also  includes  accurate  models  for  all 
of  the  major  petturbations  afleciing  an  earl h*orbi ting  .satellite  and  .all  major  predictable 
inolion.s  of  the  earth  that  affect  a  s.ate|iite*s apparent  position  ( *2).  These  perturbation 
models  include: 

•  (ieopotential  effects.  1'jh‘s  an  unclassified  21  x  21  spherical  harmoiiir  expansion 
RUHlei  (tioddard  Karth  .Model  |0|l)  of  the  earth  geoijotential. 

•  .Solar  and  lunar  gravitational  elferu.  Aseum**'  jtoint  masses  .ant!  uses  the  r.,S.  Naval 
Observatory  roinpres.<ied  ephemerts  to  prwlirt  the  positions  of  the  sun  and  moon. 

•  Atmospheric  tlrag.  Assunu's  slngle*rcd|i»i«»n  spi^uiar  reflection  and  uses  the  Harris* 
Priesier  atmospheric  nuHlet.  mudiitetl  to  take  into  arrounl  the  diurnal  bulge,  to 
compute  the  at iUospherir  den-sity. 

•  .Solar  radiation  pressure. 

•  Pr'cr.'oion  of  the  equino.x. 


•  .Vutaliiih. 


•  Diurnal  rotation. 


•  Barycentric  displacement. 

The  HPOP  model  produces  highly  accurate  earth  centered  inertial  (ECI)  position  and 
velocity  vectors,  at  specified  time  intervals,  over  a  specified  length  of  time,  for  a  given  input 
ECI  state  vector.  However,  our  research  uses  a  satellite  orbital  element  set,  not  an  ECI 
state  vector,  as  the  initial  data  point.  Additionally,  our  research  needs  the  model  output 
expressed  as  sensor  observation  data  (azimuth  or  right  ascension,  elevation  or  declination, 
range,  and  range  rate),  not  ECI  state  vectors.  Three  Turbo  Pascal  interface  programs, 
HPOP.IN,  CONVERT,  and  RSELECT,  written  by  Dr.  Thomas  S.  Kelso,  were  provided  to 
translate  HPOP  data  into  the  formats  reciuirtu  for  our  research. 

HPOPJN  uses  StJP  Library  routines,  primarily  the  procedures  of  SGP4  and  SDP4  in 
the  unit  to  convert  satellite  orbital  element  set  data  into  an  ECI  position  and 

velocity  state  vector.  It  places  this  data,  along  with  the  specifiwi  interval  for  propagation 
and  the  propagation  step  size,  into  the  inpat  formal  re<iuired  for  HPOP. 

CONVERT  converts  each  of  the  HPOP  “truth’*  ECI  p4V>itio:i  and  velocity  vrMrtors 
into  S.SN  .seiusor  observations  (e.g.,  time,  aztniuih,  elevation,  range,  range  rate)  given  the 
.S.S.N  sensor  locations,  ohservaliona!  liaiitaiions.  aud  data  ‘ypes.  For  our  research,  the 
.SSN  location-s,  limi'aticns,  and  data  types  I'seil  are  Tasted  in  Tables  2.2.  2.3,  and  2.1.'> 
respectively.  CONVERT  uses  the  .ScJI*  library  procedure  ( 'utculatr^Obs or  (‘alculaU^HAOrc 
from  th**  unii  SOf^OliS.  lo  perform  the  K(’l  to  topocentrir  coordinate  transformation  of 
the  Kf'l  position  and  velocity  vectors  to  cither  azimuth,  elevation  range  and  range  rate 
ohservaliuns  or  right  a.srension  aiui  lirclination  observations.  .Aiiditionally,  CONVERT 
incorporates  the  effects  of  atmospheric  refraction  on  the  different  types  of  observations. 

RSELECT  u.ses  the  ubserraliun  file  createrl  by  CONVERT  and  performs  three  funr 
lions:  indexes  the  file  by  day  of  observation.  a<ld.s  random  noi,M‘  t»*  the  individual  obsserva- 
lions,  and  generates  random  observiiion  files  )»ased  on  the  requireil  maximum  number  of 
ob-servations  per  day  and  random  ub.servation  sets. 

'In  uiake  the  random  selection.  RSELECT  first  indexiv:  the  oKvrvatiun  file  to  separate 
the  olKservations  by  day.  Ua.sed  «»n  the  reriuircd  number  of  ob.xervations  oer  day.  RSELECT 
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then  creates  the  files  by  randomly  selecting  observations  based  on  the  required  maximum 
number  of  observations  per  day. 

To  reduce  the  variance  in  the  observations,  these  observation  sets  are  inclusive.  For 
example,  the  observations  which  would  be  included  in  the  2  observations-per-day  set  are 
included  in  the  d,  6,  8  and  10  observations-per-day  set.  Likewise,  the  two  additional 
observations  used  to  make  the  4  observations-per-day  set  from  the  2  observations-per-day 
set  arc  used  in  the  6,  8,  and  10  observations-per-day  sets.  This  process  is  continued  until 
.he  last  two  random  observations  chosen  arc  added  to  only  the  10  observations-per-day 
se*. 

Base<l  on  the  re<|uired  number  of  random  s>.'ts,  RSELECT  uses  a  different  random 
number  seed  to  selet  t  oh.servations  from  the  indexc'd  days.  The  seed  numbers  were  created 
using  the  .SLAM  .simulation  .software  (2K).  The.se  see<l  numl>ers  were  then  hard  codc<i  into 
the  Turbo  Pascal  unit  (iauss2.  This  unit  uses  a  numerical  procedure  to  create  a  Gaus.sian 
random  numlH'r  with  a  mean  of  zero  based  on  the  input  sml  number  (27:213  237).  This 
random  numlM*r  process  is  located  in  a  function  calltKl  (Utandom  and  u.sed  by  RSELECT. 
T'he  purpose  of  this  random  numlier  proem  is  twofold:  sp<>citic  .seed  numbers  allow  for 
repetition  of  results  while  still  inducing  a  random  process  into  the  observation  procming 
methodology. 

In  addition  to  the  obserNUtion  conversion  and  selection  process  performed  in  CON¬ 
VERT  and  RSELECT.  these  programs  also  pass,  unchanged,  the  KtT  pasilion  vector  pro¬ 
duced  by  HPOP.  This  vector  is  u.serl  within  the  differential  corrector  to  calculate  the  vector 
niagiiilude  of  the  true  po.si(ion  error  (VMACtT). 

When  combined,  these  f->ur  truth  model  programs  take  a  satellite  orbital  element  set 
and  create  from  it  a  spi*rifieil  iiumber  of  sets  of  random  observation*  at  various  specilieti 
olssers'ation  rales.  The  flow  of  the  truth  model  u  shown  in  Figure  -l.l. 

^.3.2  Model  flterulian.  The  tdetnenis  of  the  truth  model  ;i  esecutetl  in  flow  as 
shown  in  Figure  l.l.  A  description  of  the  execution  method  and  input/outpul  file  fnrmaU 
for  each  of  the  elenienU  of  the  truth  modH  follows. 


4.5.2.1  HPOPJN.  The  program  HPOPJN  accepts  as  input  a  •.2LE  file  con¬ 
taining  at  least  one  two  line  element  set  of  the  format  seen  in  Appendix  F.6.  It  utilizes  a 
user-friendly  windows-style  interface  to  allow  easy  selection  of  the  *.2LE  input  file,  the  prop¬ 
agation  step  size,  and  the  time  interval  for  propagation.  Its  output  consists  of  SV-satnr.el$ 
files,  where  SV-  indicates  a  “state  vector”  file,  and  satnr  and  els  indicate  respectively,  the 
satellite  and  clement  set  number  used  to  create  the  position /velocity  state  vector.  HPOPJN 
creates  this  file,  formated  as  seen  in  Appendix  C.2,  for  each  of  the  two  line  element  sets  in 
the  input  *.2LE  file.  The  Turbo  Pascal  source  code  listing  for  this  program  is  in  Appendix 
C.l 

4.5.2.2  HPOP.  HPOP  accepts  as  input  the  SV-satnr.els  state  vector  file,  pro¬ 
duced  by  HPOP_IN.  It  is  executed  u.sing  the  following  eicecution  command  format; 

hpop  <  SV-satnr.els  >  PV-satnr.els 

where  PV-  indicates  the  HPOP  createtl  output  file  containing  the  propagated.  tlme-lagge<l. 
K<T  position  and  velocity  vt*ctors  for  the  input  satellite  data.  Reference  .Appendixes  (‘.2 
and  (’..t  for  the  format  and  an  example  of  HPOP  input  files.  A  .sample  of  an  HPOP  output 
file  is  in  .Appendix  <‘.4. 

4.3.2.3  CONVERT.  Thi-s  prt^ram  accepts  as  input  the  HPOP  createtl  PV- 
satnr.eU  file  of  the  format  .seen  in  .Appendix  Section  (‘.4.  It  reads  data  from  a  *.065 
file  containing  .SSN  .sensor  luralions  and  a  ‘.DM  file  containing  S.S.\  sensor  obsen'aiion 
limits.  It  u.ses  a  user  friendiv  windows  style  interface  allowing  easy  selection  of  the  *.0BS. 
and  *.LIM  data  files,  and  the  PV-satnr.els  input  file.  Its  output  mnsi.«ts  of  an  OB-satnr.els 
file,  formated  the  same  as  the  RSELECT  output  .sample  shown  in  Appendix  .*>ertion  (‘.s. 
containing  the  ohsiTving  .sensor,  observation  time,  observations  (axinmihor  right  ascension, 
elevation  f»r  declination,  range,  and  range  rate),  and  the  truth  K(T  pcssiti^n  (X.  Y.  and  Z). 
The  Turlut  Pascal  source  code  for  this  program  is  located  in  Appendix  (‘..’i. 

4.3.  J.i  RSELECT.  This  pn^ram  accepts  as  input  a  CONVERT  rreaterl  OB* 
satnr .elr  file.  It  uses  a  user  friendly  windows-style  interface  allowing  easy  selection  of  this 


input  file.  The  maximum  observation  rate  and  number  of  random  sets  of  observations 
desired  are  entered  as  command  line  parameters  in  the  following  format; 

RSELECT  nn  mm 

where  nn  is  the  maximum  observation  rate  (even  number  of  observations/day)  desired  and 
mm  is  the  number  of  sets  of  random  observations  (1  to  26)  desired.  It’s  output  consists 
of  mm  different  RO-satnr.nnX  files  for  each  of  nn/2  different  observation  rates.  In  this 
file  name  nn  indicates  the  observation  rate  and  X  is  an  alphabetic  index  (A,  B,  C,  ..., 
Z)  corresponding  to  different  randomly-selected  sets  of  observations.  For  example,  if  a 
maximum  observation  rate  of  10  per  day  (nn  =  10}  and  10  random  .sets  (mm  =  10) 
is  specified,  RSELECT  will  create  10  random  observation  files  (A  through  J)  each  for 
observation  rates  2,  4,  6,  <S,  and  10.  The  output  is  formatted  the  same  as  shown  in 
.Appendix  C.8.  'Die  Turbo  Pa.scal  source  code  listing  of  this  program  is  in  Appendix  C.6. 

4.3.3  Mode!  Vtrijicalion.  I'he  trutli  model  was  verifier!  as  two  components,  'fhe 
first  component  wa.s  the  HPOP  program  itself.  The  second  component  consisted  of  the 
three  Turbo  Pascal  interface  programs,  HPOP  IN,  CONVERT,  and  RSELECT. 

The  HPOP  program  is  an  off-lhe-shelf,  commercial,  orbital  propagation  program. 
The  accuracy  of  the  program  was  advertised  to  be  on  the  order  of  12  meters  or  better 
{|.j:1).  However,  we  had  no  means  available  10  verify  this  level  of  accuracy.  To  test  the 
program,  K<T  position  and  velucily  vectors  from  HPOP  were  compared  to  the  output  of 
,'iCtl*4.'il)F4  for  various  test  satellites.  The  results  of  this  ronjparison  indicated  the  level 
of  accuracy  would  be  .sufficient  for  th'  purpose  of « ::i  .•searrh.  This  program  may  be 
replaced  by  some  other  special  perturbations  rode  if  it  can:»u  be  validated  a*  saleable  for 
this  purpw. 

The  HPOP  IN.  RSELECT,  and  CONVERT  programs  were  verified  by  Dr.  Kelso  prior 
to  our  use.  However,  to  ensure  proper  performance  of  the  programs,  we  stepped  through 
earh  prorcnlurr  and  watched  execution  using  the  debug  capability  of  Turbo  Pascal. 


Differential  Corrector 

The  purpose  of  this  model  is  to  differentially  correct  the  orbital  elements  for  a  satel¬ 
lite  using  observations  created  from  the  truth  model,  and  output  a  time-tagged  vector 
magnitude  of  the  error  between  the  ‘‘truth”  position  and  the  calculated,  or  predicted,  po¬ 
sition  (VMAGT)  for  each  observation.  The  specific  elements  corrected  will  be  from  the 
NORAD  two-Iinc  clement  set:  bstar  (B*),  inclination  (t'o),  right  ascension  of  the  ascending 
node  (Oo),  eccentricity  (cq),  argument  of  perigee  (wo),  mean  anomaly  (Mo),  and  mean 
n\oti()n  (no).  Because  the  results  from  this  model  will  be  compared  to  actual  data  from 
USSPAC'KCOM,  the  model  will  attempt  to  model  the  composition  and  characteristics  of 
the  SSN  as  realistically  as  possible.  .Additionally,  it  will  use  the  same  SGIM/SDP4  orbital 
mo<lels  u.se<l  by  U.SSl’.ACKCOM. 

.■{.4-1  Model  Drvrlopment.  The  differential  corrt-ctor  was  coded  using  t'urbo  Pascal. 
Version  6.0,  primarily  due  to  the  existence  of  the  S(»P  Libraries'  validated  Turbo  Pascal 
roile  for  the  lfSSP.A<‘K(*OM/*NOR.Al)  orbital  models.  S(JP*I  and  SDP4  (pre.sented  in  Sec¬ 
tion  4.2).  This  model  consists  of  two  primary  elements:  the  actual  differentia)  corrector 
(IX*)  algorithm  and  the  orbital  element/covartance-propagation  algorithm.  Additionally, 
various  secondary  eteinents  providing  for  the  input  and  output  of  ret|uired  data  and  variable 
initialization  and  manipulation  are  included  in  the  model. 

Ppon  initiation,  the  model  first  reads  the  data  files  mlaining  the  <S.SN  sensors  lo¬ 
cation  data  (latitude,  longitude,  and  altitude)  and  weighting  <Uta  (observation  sigmas) 
as  presented  in  Tables  2.2  and  2.6.  The  estimated  state  is  initialized  to  the  same  orbital 
elements  used  to  iilitialize  the  truth  mode).  The  estimated  state  covariance  matrix  is  also 
iuitializi*d. 

It  wa.s  necessary  to  “guess”  a  value  of  the  initial  stale  covariance  estimate  which 
would  give  some  confidence  in  the  initial  stale  estimate^  and  keep  the  “start  up”  time  to 
a  reaMmahle  level.  However,  wr  did  not  want  to  give  too  much  confidence  in  the  state 
estimate  and  prevent  the  model  from  correcting  the  elements.  .After  examination  of  the 
covariances  of  various  test  saieilitc's.  a  value  of  l.O  x  10' ’  was  chosen.  For  simj  iicity,  a 

’■flic  vamr  •Hraiem*  a*nl  lo  )(rB<tate  ifcc  ttntli  ulrtc-i ralian*  »wie  lonat  a*  the  imiial  tiafe  ntimale 


diagonal  matrix  was  used  and  coded  to  allow  easy  changes  if  results  showed  that  the  initial 
“guess"  was  severely  affecting  the  “start-up"  time. 

Once  the  initializations  arc  complete,  the  first  batch  of  observations  is  read  into 
the  program.  The  batch  size  (number  of  observations  used  in  one  correction)  is  equal 
to  the  product  of  the  specified  observation  rate  in  observations  per  day  (OPD),  and  the 
specified  correction  interval,  or  length  of  update  interval  (LUPl),  in  days.  For  example, 
given  an  OPD  of  <1  (observations-per-day)  at  a  LUPI  of  2  (days),  the  batch  size  would 
Im?  8  observations.  As  the  observations  arc  input,  a  check  is  performed  to  determine  the 
observation  type  (reference  Table  2. IS)  based  on  the  sensor  reporting  the  oliservation. 

The  predicted  VMAGT  for  each  observation  is  then  calculated.  The  observation 
time  and  the  current  state  estimate  is  pas.sod  to  SGIM/SDIM.  which  calculates  a  predicted 
K(‘l  position  VMAGT  is  calculated  as  the  simple  vector  magnitude  of  the 

difference  between  the  this  FC'I  position  and  the  truth  KCl  position  (r,,,ry,,r.,)  as  shown 
in  the  following  equation. 

VM.UJT  =  yj{ r,,  -  f,.P  +  {r„  -  r,. +  ( r.,  -  r„  H.l) 

The  eslimate<l  state  and  rovarianre  are  then  propagated  to  the  new  epoch  time.  The 
Mme  of  la.Ht  ending  node  passage  prior  to  the  last  observation  processed  was  chosen  as 
I  renew  epoch  time  because  this  i.s  how. FS.SP.AtTX'OM  propagates  the  majority  of  satellite 
epochs  {2-l:2’>31.  Ilecanse  of  simplifications  used  in  the  development  of  the  propagation 
routine,  desrribr'l  in  detail  in  Section  4.4.1. 2  below,  we  expected  the  model  to  induce 
s..ntie  error  in  the  propagated  stale  and  roxwiiancr.  })ecause  of  this  known  .source  of  error, 
the  estimated  .slate  and  covariance  were  propagated  prior  to  dilTerential  correction.  This 
allowed  the  DC  to  correct  the  errors  induced  hv  the  propagation  loutirte  and  provide  the 
“beil”  possible  estimate  for  the  calruiaiion  of  V\iAt*T. 

batch  of  observation  data  and  the  propagated  stale  and  covariance  are  pa.vs<ed 
to  a  diffetentiaJ  correction  routine,  described  in  detail  in  Section  4. 4.1.1  below,  t'pon 
convergence,  the  |)C  returns  a  correcleil  stale  and  covariance,  which  are  then  declared  the 
new  estimates  Another  set  of  V\1  \t^r»  is  calculated  for  the  current  observation  batch 
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based  on  the  newly  corrected  state.  While  this  data  is  not  used  in  the  analysis,  it  is  useful 
as  a  check  to  ensure  the  DC  is  providing  ^^good”  corrections.  The  flow  of  the  dynamics 
model  is  shown  in  Figure  4.2. 

L I  Difftrential  Correction  Algorithm.  As  explained  in  Section  2.9  above, 
USSPACECOM  uses  a  combination  of  sequential  and  batch  correction  methods  to  correct 
satellite  orbital  elements.  In  this  research,  we  sintplified  the  correction  methodology  to  use 
only  a  Bayes,  ..oquential  estimation,  correction  method  as  presented  in  Section  3.2. 

I'he  correction  routine  begins  when  passed  the  current  estimated  state,  X,  and  co- 
variance  along  with  a  batch  of  observations,  O,-.  These  observations  are  inde.xed  by  time 
and  the  sensor  producing  the  observations.  A  reference  state,  x*,  is  set  equal  to  the  cur¬ 
rent  estimated  state,  X.  For  each  observation  time  ii,  a  pitHlirted  set  of  obserration-s,  O,. 
is  calculated  using  SfSIM/.SDIM.  .S(tlM/Si)P4  calculates  the  predicted  observations  as  a 
function  of  t,  and  the  current  reference  state,  x*. 

O.  =  OAxVoH,)  (1.2) 

'fhe  residual  vector,  r,.  is  then  calculated  as  shown  in  Equation  -1.3. 

r.  =  6.  -  Ok  (-1.3) 

.^n  obM-rs*atioh  matrix  7',  U  then  calculated  for  each  I,.  llerauM*  the  senses  of 
the  SSN  report  different  type*  of  observation*  (reference  .Section  2.*),  T,  could  take  on 
different  dimen»ion*  for  each  «rf  the  different  observation  type*  reported.  The  .SSN  sensor* 
we  Rtodelrd  only  report  three  observations  types:  Three,  Two.  and  Five  ( reference  Section 
2.»). 

For  ronipulaiional  simplicity.  T,  w-a*  given  a  constant  dimension  (4x7)  ba«efl  on 
Observation  Type  Three,  which  rrpwt*  largest  set  of  data  (aximuth.  elevation,  raufe. 
and  range  rate).  The  obsers-atinn  matrix  for  Type  Three  observations  is  shown  below  in 
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t^quation  4.4. 


The  incrctncntally  .small  Ax*  values  used  vrere  experimentally  detcnnincd  by  com¬ 
paring  the  significant  figures  in  the  *?(»IM/SI)P4  calculated  observations  shown  lieluw. 


Oj(x(toht,} 


(4.H) 


and 


Oj(X(lo)  +  Axtlta)Ji) 


(4.0) 


The  matrix  .sums  '//(j)-*'/;  and  77<?:'r.  are  then  calculated  for  eacli  /;.  The  sen-sor 
covariance  matrix.  (),.  is  deixMident  on  the  .sensor  reporting  the  observ-atiuns.  .As  with  the 
/,  matrix,  it  will  lx*  a  diiferent  dimension  bas<Hi  on  the  obserWilion  type  of  the  .sensors. 


but  for  the  purpose  of  ihi.s  model  is  held  at  a  constant  dimension  (-Ixd).  Kqiiations  4.10, 
4.11.  and  4.12  show  the  weighting  matrix  for  Olxservatiun  Ty|>e  Three.  ‘I'vvo,  and  Five. 
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As  the  matrix  sums  Tf  Qf'  Tt  and  Tf  r,-  are  calculated  for  each  U,  the  running 

sums 


(4.13) 

(4.14) 

are  maintained. 

After  all  observations  have  been  processed.  The  new  state  covariance, 
culated  as  shown  in  Equation  4.15. 

P:L  =  Pr,l  +  ^TTQr^T,  (4.15) 

where  P~,^  is  the  old,  or  a  priori,  inverse  state  covariance. 

The  state  coiTection  estimate  is  then  calculated  as  shown  in  Equation  4.16 

M^o)  =  Pn..  ( P;d  -  X*)  +  S  Qr*  r.)  (4.16) 

with  the  corrected  reference  state  then  being  calculated  as  shown  in  Equation  4.17. 

xI+i{<o)  =  KM  +  ^x(<o)  (4.17) 

To  prevent  the  DC  from  attempting  *o  correct  certain  elements  to  a  value  out.side 
their  allowable  range,  some  checks  and  limits  routines  were  implemented.  'I'he  thrw  el¬ 
ements  uf  concern  were  li",  en»  and  no.  First,  a  maximum  absolute  value  of  1.0  was  set 
for  If  this  limit  was  exceeded,  the  corrected  I)'  value  was  re.set  to  the  uncorrected, 
or  previous  rof.'ronce  value.  This  value  was  chosen  as  a  rea.sonal)le  viUue  ba.sed  on  the 
statistical  analysis  of  tlie  current  population.  Additionally,  if  this  H’  limit  is  exemied,  IP 
is  rcmoveil  from  the  IIMS  calculation  for  convergence. 
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The  maximum  limits  for  e  and  ri  were  set  based  on  Equations  4.18  and  4.19,  which 
express  the  maximum  value  of  one  element  as  a  function  of  the  other. 


Cmar(no)  =  1  ”  R^l 

(4.18) 

nmar(eo)  =  {1  -  Cgf^^ ^ fi/ Rl 

(4.19) 

A  value  of  0.0  was  .set  as  the  lower  limit  for  each  of  these  elements.  A  check  was 
first  performed  on  eg.  If  outside  these  limits,  the  corrected  eg  was  reset  to  the  previous 
reference  value.  Similarly,  if  7j(,  w^is  outside  these  limits,  the  corrected  value  was  re.set  to 
the  previous  reference  value. 

The  correction  is  then  checked  for  convergence.  We  •is»'d  the  weighted  root  mean 
.square  (RMS)  of  the  calculated  state  corrections  as  shown  in  Flquation  4.20. 

If  the  weighted  RMS  value  is  less  than  0.01,  the  proct>s.s  is  considoreul  convergwi. 
The  corrertixl  reference  stale,  xj^,,  and  rorn*ctod  covariance.  /^{  +  ).  are  passinl  out  of  the 
differential  correction  routine  and  then  dwlartnl  the  new  i>stimntes.  If  convergence  is  not 
di'clartHl,  the  differential  prort>ss  bt'gins  again  using  xj^,  as  the  new  reference  stale. 

^.4.1.2  I'mpagatiun  lioutiiu  .  Prior  to  performing  differential  correction,  the 
epoch  of  the  current  estimaterl  element  set  is  moveil  to  the  time  of  the  last  a.Hremiing 
nude  crus.sing  prior  to  the  last  observation  processed.  T«>  do  this,  an  analytic  metluKl  was 
dtTidnl  upon  for  computational  efriciency  and  becaus«-  lhi.s  is  how  the  majority  of  satrllile 
epochs  are  propagated  (24:2.'>9).  Once  propagattHl  to  the  new  lime,  the  stale  covariance 
matri.x  is  prupagati*<l  to  provide  an  estimate  of  how  g(M)d  the  new  state  vector  is. 

The  elements  used  by  .S<JP  are  mean  Keplerian  orbital  elements.  The  mean  elements, 
in  a  sense,  average  out  the  |M<rturl>ations  over  an  orbit  and,  thus,  are  only  accurate  fur 
longer-term  pnxiictions.  To  avoid  any  cumulative  efferls  of  propagating  the  orbit  to  any 
place  in  its  path.  lb«‘a.sceinling  male  rnxs.siiigis  m.sih1  to  provide  a  consisleul  point  to  average 


the  orbit.  This  also  reflects  what  is  done  by  the  SSC’s  current  differential  correction 
techniques  as  can  be  shown  in  Figures  5.8  thru  5.11.  As  can  be  seen,  the  sum  of  the 
true  anomaly  {i/)  and  the  argument  of  perigee  (w)  is  fairly  close  to  0  or  It  only  when 
the  inclination  and  the  eccentricity  are  close  to  0  does  the  sum  of  the  two  appear  to  be 
fairly  random.  The  divergence  at  higher  eccentricities  is  due  to  convergence  problems  of 
extracting  the  true  anomaly  from  the  mean  anomaly. 

To  propagate  the  mean  Keplerian  orbital  elements,  we  decided  to  initially  perform 
element  propagation  for  Jj  pciturbations  only.  Also,  the  air  drag  and  resonance  effects  are 
not  considered.  Additionally,  we  made  no  attempt  to  incorporate  the  n  and  n  terms  into 
the  propagation.  Section  3.1  explains  the  derivation  of  the  propagated  elements  and  the 
state  transition  matrix. 

Since  the  longest  propagation  time  is  going  to  be  on  the  order  of  ten  days,  the 
exclusion  of  the  resonance  term.s  is  expected  to  have  only  a  small  impact.  For  satellites 
in  a  very  low  orbit,  the  assumption  that  there  is  no  air  drag  is  not  expected  to  be  a 
goo<i  one.  'I’o  account  for  the  dynamics  model  errors,  a  dt'-weighting  or  forgetting  factor 
is  us(h!  in  deciding  how  good  the  estimate  is  The  forgetting  factor  is  actually  a  7x7 
matrix  that  is  a  function  of  propagation  time.  Additionally  the  forgetting  factor  could 
U'  UKKlified  to  account  for  the  air  drag  and  resonance  shortcomings  ol  tlie  propagator. 
However,  we  decidetl  against  i.npleiuenting  this  due  to  our  time  restrictions.  We  made 
nuotlier  simpliricatioii  in  our  nuMlel  to  assume  the  forgetting  matrix  was  a  diagonal 
matrix  with  all  the  element.s  being  identical,  this  elhTtively  reduces  our  forgetting  matrix 
into  a  forgetting  .scalar.  Keference  (2-1:202)  provides  the  baseline  forgetting  scalar,  mseO  by 
t^SSl^\(’K<*OM.  that  we  will  use,  providing  it  does  not  over  emphasize  or  deemphasize  the 
estimate.  Over  emphasi!i  will  manifest  it.self  as  an  estimate  which  lefiises  to  cliange  thus 
the  first  and  last  pa.ss  residuals  grow.  Over  deemphasi.s  will  be  estimates  which  fluctuate 
w'ildly.  'i'lte  last  pass  residuals  will  l>e  low  but  first  pass  residuals  will  be  high. 

MihUI  tlxrculiun.  The  primary  program  implemeating  this  model  is  rall«Hi 
DIFC.  .Six  additional  'lurlm  Pascal  units  provide  routines  necps.sary  to  support  the  main 


program  DIFC.  Source  code  listings  for  these  units^  described  below,  can  be  found  in 
Appendix  D. 

•  DCJNIT.  Unit  containing  constants,  variables,  and  declarations  needed  to  initialize 
the  DC  and  interface  the  DC  with  the  other  routines. 

•  DC_CALC.  Unit  containing  routines  for  performing  the  differential  correction  calcu¬ 
lations  and  variable  manipulations  required  by  DC. 

•  PROP.  Unit  containing  routines  for  propagating  the  elements  and  their  covariance. 

•  LOWB.  Unit  containing  routines  for  reading  SSN  sensor  locations  and  weights  data. 

•  DC_OUT.  Unit  containing  routines  to  output  program  results  in  standard  formats. 

Dli  0.  accepts  as  input  a  2LEsatnr.DAT  fde  containing  the  initial  estimated  state  (or¬ 
bital  elements),  a  CO''satnr.DAT  file  containing  the  initial  estimated  state  covariance,  and 
a  RO  sat..r.nnX  file,  spocifie.l  in  a  command  line  parameter,  containing  random  observa¬ 
tions.  Recal'  that  this  file  contains  candom  olxservation  set  X,  at  observation  rate  nn.  for 
satellite  satnr.  DIFC  anlOiiiatit  ally  roads  the  SENSORS. OBS  and  SENSORS.COV  data  files 
containing  the  S.S.N  .sensor  lecation  and  weighting  data.  The  rorrwtion  interval  and  desired 
number  of  corrections  are  specified  as  ''Uiainaud  line  parameters  in  the  following  format: 

DIFC  RO-sainr.nnX  aa  bb 

where  aa  is  the  di'sirwl  'orrection  interval  in  days  anti  bb  is  the  dt.sired  number  of  cor¬ 
rections  to  be  performed.  He  aware  tliat  *Se  product  aaxbo  mu.sl  b"  less  than  the  total 
nninber  of  days  of  olnservation  tlala  in  tl  RO-satnr.nnX  fik. 

DIFC  uulputi.  three  diirerenl  flle.-i: 

•  File  Fsatnrnn.aaX  lontaining  oliservation  time  {e.vp!e.ssetl  in  days  since  epen-h  of  the 
nrigiiiHi  estimate  el.set}  and  the  V'M.’XtJT  prior  to  dinerential  torreciit.ii. 

•  File  Lsatnrnn.aaX  containing  ohservatii.n  time  (expres.-pcl  in  days  since  e^jocli  of  the 
original  estimate  elsei )  and  the  V.M.-\(n'  aflv-r  differential  rorrc*clion. 
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•  File  Rsatnrnn.aaX  containing  error  flags,  Initial  and  corrected  elements  and  covari¬ 
ances,  and  any  other  information  not  directly  required  for  the  statistical  analysis, 
but  of  possible  use  in  analyzing  adverse  or  interesting  trends  appearing  in  the  data. 

where  satnr  indicates  the  satellite  number,  nn  indicates  the  observation  rate  in  obs/day, 
aa  indicates  the  correction  interval  in  days,  and  X  is  an  alphabetic  index  corresponding  to 
different  random  observation  sets. 

Model  Verification.  Verification  of  program  algorithms  and  data  flow  were 
performed  by  checking  sample  case  calculations  with  either  independent  programs  or  hand, 
calculation.  The  following  verification  procedures  were  used: 

•  Matrix  and  Vector  Operations.  Intensive  verification  of  all  matrix  and  vector  opera¬ 
tions  used  within  our  differential  corrector  model  was  performed  using  the  MatLab'* 
niimeric  computation  software  package,  QuatroFro*  spreadsheet  calculation  .software, 
and  in  some  cases  hand  calcul.uions.  Test  routines  were  placed  in  the  program  to 
print  the  values  of  matrix  and  vector  elemetits  prior  to,  and  following,  all  operations. 
Tlu'se  same  input  rallies  were  ustnl  to  perform  the  .same  matrix  or  vector  operations 
using  one  or  both  of  the  software  packages  discusscnl  above.  This  procetlure  was 
performed  several  times,  for  different  l»*st  cases,  throughout  the  development  of  the 
morlel. 

•  .Numerical  (  airulation  of  Observation  Matrix  Klements.  Numerical  accuracy  of  the 

variables  useil  to  calculate  the  elements  of  the  observation  matrix  were  verified  man¬ 
ually.  lest  routines  were  plannl  in  the  program.s  to  print  the  values  of  the  variables 
U.sed  to  calculate  the  elements  of  the  7’,  matrix  0^(x(fd)-h  Aj-tf/o)./,). 

and  Axi(/o)).  The  niimlier  of  signifleant  digits  present  in  the  difference  calculations 
were  examined. 

•  Dynamics  .\lm|el  Flow.  The  proper  data  flow  of  information  in  the  program,  a.-* 
well  as  the  input  and  output  of  data  by  the  program  was  verified  by  examining 

'.Mat Lab  U  a  iratirmark  of  Th*-  MaihWnrks.  Inv. 

‘■tiaalroPro  U  a  Katlrwaik  of  Itortamt  iitirraatiunal. 
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various  test  print  routines  and  performing  a  line  by  line  program  trace  monitoring 
various  variables.  This  procedure  was  performed  several  times,  for  different  test 
cases,  throughout  the  development  of  the  model. 

Statistical  Analysis. 

The  overall  purpose  of  this  research  is  to  develop  and  demonstrate  a  model  from 
which  the  effects  of  observation  rate  and  update  intervals  on  the  accuracy  of  an  orbital 
clement  set  can  be  determined.  Therefore,  the  purpose  of  this  analysis  is  to  see  if  the 
steady-state  VMAGT  value  can  be  determined  for  the  various  observation  rate  update 
interval  combinations  tested,  and  if  the  value  can  be  determined,  show  how  observation 
rate  and  update  interval  affect  it.  The  following  sections  will  review  how  the  values  of 
observation  rate  and  correction  interval  tested  were  determined,  how  the  number  of  Monte 
Carlo  runs  was  determined,  and  discuss  the  variance  reduction  and  data  analysis  techniques 
u.sed. 

4.5.1  Observation  Hate /Update  Interval  Selection.  The  differential  corrector  model 
will  be  run  using  various  observation  rates  and  correction  interval  combinations  for  various 
sample  satellites.  .\  review  of  the  average  observation  rates  recommended  in  the  System 
Capability  Study  (reference  Table  2.9)  and  used  by  the  IhSSP.ACKCOM  tasking  program, 
as  describwl  in  .Section  2.7,  show  rcquirtHl  average  observation  rates  of  between  one  and  five 
ob.servations.|>er-day.  A  review  of  the  typical  observation  tasking  for  routine  satellites,  a-s 
shown  in  'fable  2.12.  shows  current  ob.Hervation  tasking  on  routine  satellites  Iwing  between 
appro.>cimately  four  and  nine  ob.servations-per-day.  Dased  on  the.He  values,  we  chase  to 
examine  observation  rates  of  two.  four,  six.  and  eight  observations- per-day. 

The  SSf  “s  automatic  element  set  update  process  flags  a  routine  satellite  for  a  differ¬ 
ential  correction  every  2-1  hours  (reference  Section  2.9.2. 1 ).  Based  on  this  data,  w'e  derided 
to  examine  update  intervals  of  two,  four.  six.  and  eight  days. 

4.5.S  .Monte  (‘arlo  .-Ino/i/.'sw.  One  purpose  of  simulation  is  to  thoroughly  examine 
an  alternative  by  generating  values  for  the  random  variable  at  fre<|uenri*^  indicated  by  the 


distribution  of  the  random  variable  (20:494).  Of  interest  to  this  research  is  the  random 
variable  representing  the  vector  magnitude  difference  between  the  computed  position  and 
actual  position  of  a  satellite.  This  quantity  is  referred  to  as  VMAGT.  The  measurement  of 
this  variable  may  bo  treated  as  a  random  variable  because  of  the  inaccuracies  involved  with 
the  sensor  devices.  These  inaccuracies  are  expressed  as  average  error  (bias)  and  standard 
deviation  (sigma)  and  are  sensor  dependent.  The  result  is  a  correctable  measured  position 
with  a  definable  variation. 

In  order  to  gain  some  insight  into  the  ability  of  our  differential  corrector  to  correct 
orbital  elements,  Monte  Carlo  .simulations  will  run  for  the  various  combinations  of  cor¬ 
rection  interval  (LUPl)  and  number  of  batches  used  for  correction.  Observations  will  be 
calculated  for  a  period  of  60  days.  To  tc.st  the  ability  of  the  differential  corrector,  a  facto¬ 
rial  exjrerinient  will  be  created.  With  correction  intervals  of  every  two,  four,  six,  anrl  eight 
day.s,  this  gives  .'10,  I-**,  10,  or  7  batches,  respectively.  For  each  of  these  combinations,  the 
differential  corrector  will  be  run  ba.sed  on  an  olxservation  rate  of  two,  four,  six,  and  eight 
observations  per  day. 

Of  major  concern  to  the  simulation  is  the  number  of  trials  for  each  factor  combination 
retiuirwl  to  gather  the  nece.s.sary  data.  The  very  prwision  and  reliability  of  the  estimate 
is  determined  by  the  number  of  simulation  trials.  'I'u  estimate  the  number  of  trials,  we 
utilimi  a  method  suggested  by  Lapin  (20:,’>0.'t  .C)09). 

First,  we  gurssrti  a  value  for  the  sample  deviation.  Ka.sed  on  the  assumption  of  a 
uniform  distribution,  Lapin  suggest.^  the  following  rule  of  thumb  for  making  such  a  gue.vi: 

1/argest  Value  -  Smalle.st  \'aliie 
r  —5 - - - -  (.J.2I) 

Since  the  .SS(‘  flags  observathws  for  elrment  set  update  if  the  position  err«>r  is  M 
kilnmeter.s  or  greater,  we  .set  our  largest  value  to  1 1  kin.  The  smallest  pos.sibIe  value  is  0 
km  and  indicates  a  perf«Ti  predirtitm  of  the  satellite  position  with  re.s{>ect  to  the  measured 
|K>sition.  Ila-sed  on  Kquatioii  1.21,  kihuneters. 

To  determine  w.  the  ntimlter  of  trials,  the  levels  of  precision  (#/)  and  reliability  (.*) 
must  Ik*  rstablisluHl.  Lapin  ilefines  prmsinn  as  the  maximum  deviation  from  the  true  vUue 


the  experimenter  is  willing  to  accept.  2  is  the  normal  deviate  for  the  required  reliability. 
Lapin  provides,  without  proof,  the  following  formula  for  determining  the  required  number 
of  trials: 


n 


-2/t* 

iT- 


(4.22) 


As  an  initial  trial,  we  select  a  value  for  d,  base<l  on  10  percent  of  the  largest  value. 
Therefore,  d  =  1.4  kilometers.  At  the  .90  reliability  level,  the  normal  deviate  is  2  =  1.65. 
na.scd  on  these  choices,  Kquation  4.22  gives  a  value 


n 


(1.6.'))2(2..3.3:1)- 

(1.4)2 


7. .56 ! 


.S 


.At  the  .95  reliability  level,  z  =  1.96  and  the  value  for  Equation  4.22  l>cromes  n  - 
10.67.  For  the  purpose  of  our  .VIonte  Carlo  simulation,  we  chase  to  execute  10  runs  for 
each  case. 


Vdriann  Htdiu  lion.  Of  the  two  variance- reduction  metho<l8  di.srus.se<l  in  Sec¬ 
tion  .'1.4,  the  only  variance-reduction  technicpie  we  will  use  is  common  raixlom  numbers. 
.As  di.scu.ssed  in  .Section  :t.4,  a  fundamental  requirement  for  usittg  AVs  is  that  the  random 
variables  must  be  monotonic.  .After  some  inspection  of  our  model,  vve  delerminerl  the 
random  numbers  are  nut  munotonic  for  the  followin;'  rea.son.s: 

•  For  the  ol)servatiun  .selections,  it  is  e.xpertetl  that  an  ob.servation  that  fell  relatively 
close  in  time  to  another  in  one  replication,  woubi  not  behave  any  differently  in  its 
antithetic  pair  replication  since  Imth  observations  would  occur  at  a  different  time  but 
still  close  to  each  other.  The  maximum  Iwnefit  would  occur  if  the  observations  were 
spread  out  (sup|K»edly). 

•  For  theob.servation  noi.se.  an  error  etpially  in  one  direction  prtibably  would  not  behave 
much  differently  than  its  antithetic  pair  ab.servali{»n.  .A  negative  large  error  would 
have  an  antithetic  pair  error  «»f  a  large  pasitive  error  both  impact  the  system 
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negatively.  In  general,  observations  closer  to  the  mean  behave  better  than  ones  more 
distant. 

4.5.4  Data  Analysis.  The  major  measure  of  performance  of  the  differential  cor¬ 
rector  model  for  the  various  satellite/LUPI/OPD  combinations  tested  is  the  steady-state 
VMAGT  value.  To  determine  this  value,  the  point  at  which  steady-state  was  reached  had 
to  first  be  declared.  This  declaration  was  set  at  the  24th  day  unless  a  visual  Inspection  of 
the  raw  data  plotted  with  a  four-day  moving  average  showed  that  steady-state  occurred 
later.  From  the  point  at  which  steady-state  is  declared,  the  VMAGT  mean  and  variance 
for  each  of  the  10  Monte  Carlo  runs  was  computed  as  shown  in  Equations  4.23  and  4.24 

\/Vf  A/'*^P 

VMAGT,  =  £(VMAGT,)  =  ^  (1-23) 


V«r(VMAGT,)  = 


Eli, (VMAGT,,  -  VMAGT,)" 
A'  -  1 


(4.24) 


where  x  indicates  the  one  of  the  10  different  Monte  Carlo  runs  (A  thru  J),  and  iV  is  the 
total  number  of  VMAGT  measurements  taken  since  steady-state  wjis  <leclare<l  for  a  given 
rums. 


A  99  percent  confidence  level  (99%  CL)  for  each  VMAGT  (99(.*/,(  VMAGT,))  was 
then  calculated  for  each  of  the  10  runs  as  shown  in  Equation  4.2.^ 


99r/.(  VMAGT,)  =  VMAGt,  +  2..T263.’1  ^^V'nrfVMAG'r,))  .  (4.2.’i) 

where  2.3263.’>  represents  the  one-sided  standard  normal  99  percent  confidence  |»*vel. 

I'sing  variations  of  Equations  4.23  and  4.24  with  the  mean,  variance,  and  99  percent 
ronfuienre  level  values  calculated  from  all  10  Monte  Carlo  runs  (r  =  A  through  J).  the 
following  means  and  variances  were  then  calculated: 


4-2r, 


/.(AIYM.AGT,)) 
A(\flr(  VMAGT,)) 
F;(99C /.(VMAGT,)) 


r«r( /.‘(VMAGT,)) 
rnr(Cnr(VM.\GT,  )j 
\‘<ir(99r/.(VMA(;T,)) 


Recall  that  the  100(1  -  o)  confidence  interval  for  any  value  can  he  calculated 
as  shown  below; 

£(^(n))±  {sJVamn)-^  (1.26. 

Using  Plquation  '1.26  with  a  =  0.05  (2„/2  =■  1.961  the  95  percent  confidence  ‘iitci  vals 
for  /?(VMAGT,),  V'ar(VMAGT,),  and  99CZ.(VMAGT,)  are  calculated  as  shown  in  the 
three  c(|uations  below: 


/;(L’(VMAGT,))±  1.96 

^^Var(£;(VMAGT,))j 

('U27) 

fv’(Var(  VMAGTx))±  1.96 

^^Vflr(Var(VMAGTJ)) 

(4.28) 

/;i99C/,(VMAGTJ)±  1.96 

^^V«r(99f/.(VMAG'r,))) 

(4.29) 

The  results  from  Kquation  <1.25  were  also  use<!  in  the  performance  of  an  analysis 
of  variance  (ANOVA).  For  each  I.UPl/OI*|)/Monte  Carlo  run,  the  99  percent  Cl,  wa.s 
calculated.  Using  I.UIM  and  OPl)  as  main  effects,  a  two  factor  .VNOV’A  was  cunducttHl 
on  the  99  percent  Cl.  for  each  satellite.  This  analysis  allowed  (|uantitative  determinations 
concerning  the  effects  of  I,UPl  and  OPl)  on  observed  VMAGT. 

Once  all  of  this  statistical  data  is  computed,  the  data  from  each  sample  satellite  will 
be  e.vamined  with  res|>ect  to  four  performance  measures: 

1.  "First  pna-s"  V.\|AGT  values 

2.  “I,a.st-pass"  VM.\GT  values 

3.  OPl)  effert  on  the  99  percent  Cl.. 

•I.  l.t  PI  effect  on  the  99  percent  Cf,. 

U.  .Statistical  difference*  in  OPl).  l.t'PI.  and  OPD/I.UPl  interaction  effects. 


V.  ANALYSIS  OF  EARTH  SATELLITE  POPULATION 


The  analysis  portion  of  the  earth  satellite  population  was  divided  into  four  categories. 
The  first  section  deals  with  the  composition  of  the  current  population.^  The  second  section 
deals  with  an  analysis  of  the  J2  perturbations.  The  third  section  deals  with  the  development 
of  a  satellite  classification  scheme  based  on  orbital  elements.  The  fourth  section  combines 
the  results  of  population,  and  classification  analysis  to  se!c<  t  representative  satellites 
based  on  our  classification  scheme. 

5. 1  Satellite  Composition  Analysis  *  ■ 

Included  in  Appendix  are  the  various  graphs  which  were  developed  as  part  of 
the  satellite  composition  analysis.  We  have  included  the  more  interesting  findings  in  this 
chapter.  'I’he  analysis  was  done  on  the  mast  current  data  available.  Appendix  F  roiitains 
the  code  and  .some  brief  descriptions  as  to  how  the  current  satellite  population  data  .set 
was  deteriniued. 

Table  .'i.l  shows  the  populations  of  each  of  the  .‘)2  (iabl>aril  (^lasses.  'I'he  most  pop- 
ulace  classes  have  altitudes  less  than  2000  km,  except  for  Class  02,  which  includes  the 
geo.syiichranous  satellites,  and  Classes  !7  and  2G,  which,  in  general,  are  transfer  vehicles. 
I’igure  J>. I  shows  the  density  of  satellites  in  (‘las.a'.s  I  16. 

It  is  difficult  to  make  any  conclusions  about  the  nistributions  of  satellites  iu  the 
(iabb:.rd  classes.  However,  the  relative  numbers  indicate  most  of  the  satellites  fall  into 
eight  different  cla-sses.’ 

Hesiites  the  distributions  of  satellites  in  the  (tabbard  claji8**s.  we  analysed  the  di.stri- 
btiiiuns  of  the  two- line  elements  in  the  current  popubition.  Table  .'i.2  gives  the  minimum, 
mean,  median,  and  maximum  for  *  ach  of  the orbital  elements  in  the  two-line  element  .sets. 

F'igure.s  .'i.2  through  show  the  distributions  of  ercentririly.  inclinaiiou,  and  Ko/ai 
mean  motion.  The  di.slributions  of  the  other  elements  are  in  Appendix  F.. 

'{“ttftrnl  (Ktpulalion  trfrrr  to  tfcr  fits!  tVfo  litir  rirmrnl  set  aflrt  I  March  1990.  'tv  1990  {K>}iulaiioa  l» 
amUttlnl  la  irjtfrvtit  thr  rOftrni  }KH*«lation  of  •alrlblr*. 

‘S|0*  lairtlilrs  out  of  fjl  iaiu  right 


FiRun*  Ti.I.  Distribution  of  Sat^Iitrs  in  (tabbaitl  f'lasst's  I  16. 


Tablr.^.2.  Orbital  fUmrnt  Slatistini (Minimum.  Mi*an.  Minlian.  Maximum). 
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fREOtfEHCY  HISTOGRAM 


Figure  5.4.  Frequency  Histogram  —  Inclination. 


Figiii'p  5.5.  Cumulative  Distribulioti  hidinailon. 


Percentage 


Figure  5.6.  Frequency  Histogram  -  •  Kozai  Moan  Motion. 


Figure  .5.7.  ('umulativo  DFstrilmliun  Kozai  .Mean  Motion. 
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After  examining  the  single  variable  cases  we  generated  some  two-variah’d  plots.  These 
plots  show  if  there  is  a  relation  between  any  two  orbital  elements.  For  instance,  Figure  5.8 
shows  a  correlation  between  the  argument  of  perigee  and  mean  anomaly. 


SCATTER  PLOT 


Figure  .5.8.  Scatter  Plot  Argument  of  Perigee  and  Mean  Anomoly. 


Figure  .5.9  shows  that  the  correlation  is  even  more  pronounced  when  the  mean 
anomaly  at  epoch  is  converte<l  to  the  true  anomaly  at  epoch.“ 

'I'his  correlation  indicates  the  sum  of  the  true  anomaly  at  epoch  and  the  argumetit 
of  iHTigee  is  nearly  constant.  'Ihis  finding  is  consistent  with  the  KV\(!S  procedure  of 
propagating  an  orbit  to  its  a.scending  node  crossing.  The  only  case  where  the  ascending 
nmie  crossing  is  not  well  defined  is  when  the  inclination  is  near  zero.  Figure  .5.10  shows 
the  relation  between  the  inclination  and  the  angular  difference  from  the  notle. 

.>\s  Figure  5.10  shows,  most  of  the  large  deltas  from  the  no<le  occur  at  near  zero 
inclinatitm.  There  is  error  inirorlucerl  by  performing  a  power  series  expansion  tt>  change 

‘Sumt-  erruo  air  ittlrcMlm'rd  in  rsiiaritnit  ibr  tnir  anumaly  from  ihr  mean  anomaly.  Thr  mors  air 
ItrratrsI  wlirn  rrrrnlririty  is  laigr. 


True  Anomaly  at  Epoch  In  decrees 


SCATTER  PLOT 


Figure  5.9.  Scatter  Plot  --  Argument  of  Perigee  and  True  Anomaly. 


Figure  ">.10.  .Scatter  Plot  Angle  from  Node  and  Inclination 


the  mean  anomaly  into  the  true  anomaly  and  this  is  more  pronounced  at  the  higher  ec¬ 
centricities.  Figure  5.11  provides  some  idea  as  to  how  large  the  error  is  in  the  power  series 
expansion. 


An^l*  front  Node  In  degrees 


Figure  .I.U.  Scatter  Plot  Angle  from  Node  and  Kccentricity. 


When  both  sources  of  angular  differences  from  the  node  are  taken  into  account,  there 
are  very  few  satellites  which  are  Jiot  at  the  ascending  notie. 

.Another  interesting  rt'sull  is  the  relationship  between  tvcentricity  and  the  Kozai  mean 
motion  depictetl  in  Figure  5.12.  The  triangular  shape  is  due  to  the  fact  that  for  a  particular 
orbit,  the  Kozai  mean  motion  has  a  limited  tH-centricily.  otherwise  the  orbit  intersects  the 
surface  of  the  earth.  Kquaiion  .5.2  (Figure  5. IH)  shows  the  relationship  l)etween  the  mean 
motion  and  e<Tentricity  to  htave  a  closwl  orbit  which  dcH*s  not  intersect  the  earth's  surface. 


.5-9 


implies, 


(5.2) 


c<  1- 


Since  SGP4  does  not  use  the  time  derivatives  of  mean  motion  which  are  contained  in 
the  NORAD  two-line  elements,  n/2  and  n/6,  we  were  interested  in  finding  if  there  was  some 
way  of  deriving  the  values  of  n/2  and  n/6  from  bstar  (B')  and  possibly  other  elements. 
Figure  5.14  shows  there  is  no  functional  relationship  between  B‘,  hji,  and  n/6.^  The  fact 
there  is  no  functional  relationship  was  also  confirmed  by  personal  interview  with  a  member 
of  USSPACECOM/J3SOT  (8).  Without  the  hoped  for  functional  relation  between  orbital 
elements  to  determine  the  time  derivatives  of  the  Kozai  mean  motion,  we  do  not  have  any 
way  of  differentially  correcting  n/2  and  n/6. 

The  analysis  in  this  section  allowed  easy  examination  of  the  current  satellite  constel¬ 
lation  composition.  We  examined  how  the  satellite  population  fell  into  the  various  Gabbard 
cla.ssGS  with  most  of  them  falling  into  the  low  earth  cla-sses  1-6.  We  also  examined  some  of 
the  correlations  between  the  orbital  elements.  First  we  confirmed  the  majority  of  satellites 
were  propagated  to  the  ascending  node  crossing.  We  al.so  showed  the  limits  on  eccentricity 
given  a  particular  Kozai  mean  motion.  And  finally,  we  generated  a  plot  showing  there  was 
no  functional  relationship  between  B' ,  hf2,  and  n/6. 


‘.■Vpprndix  K  the  virwji  ot  Jbr  i litre- <iiinrn«ion«]  j>Uu  for  llio»r  of  ii»  who  have  IrouMr 

vUnali/itift  ihrrr  iiimrn»ioUK  on  a  iwo-ilimrniMonal  nbrri  of  papri.  FiRurm  K.T,  K.S,  and  F.S  atr  ibr 
rrirvanl  tirailrt  ploU. 
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Xozai  Me«n  Motion  in  rev/day 

Figure  5.12.,  Scatter  Plot  —  Kozai  Mean  Motion  and  Eccentricity. 


M«(an  notion  \h  fc^v/44y 


Figure  .^.13.  Maximum  Krcentricily  as  a  Function  of  Mean  Motion. 
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5.2  Perturbations  Analysis 


There  are  two  reasons  for  looking  at  satellite  perturbations,  specifically  the  J2  per¬ 
turbations;  to  identify  the  magnitude  of  the  perturbations  due  to  J2,  and  to  aid  in  the 
propagation  of  orbital  elements.  In  Section  3.1.1  we  derived  the  actual  equations  which 
would  be  used  in  the  propagattion  algorithm  within  the  differential  corrector  model.  How¬ 
ever,  the  examination  of  the  magnitude  of  these  pervurbations  is  performed  in  this  section. 

Figure  5. 15  shows  the  magnitude  of  the  time  derivative  of  the  mean  anomaly  at  epoch. 
Mo,  and  this  is  directly  the  difference  between  the  true  mean  motion  and  the  Kozai  mean 
motion.  The  ‘‘maximum*'  referred  to  in  the  graph  uses  the  fact  that  the  perturbations  are 
largest  when  the  eccentricity  is  at  its  maximum.^  Figure  5.16  shows  the  differences  in  Mo 
between  the  maximum  possible  eccentricity  and  a  zero  eccentricity.® 

Figure  5.17  shows  the  magnitude  of  the  time  derivative  of  the  ascending  node,  fl. 
Again  as  before,  the  “maximum”  referred  to  in  the  graph  uses  the  fact  that  the  perturba¬ 
tions  are  largest  when  the  eccentricity  is  at  its  maximum.  Figure  5.18  shows  the  differences 
in  ft  between  the  maxinmm  possible  eccentricity  and  a  zero  eccentricity. 

Figure  5.19  shows  the  magnitude  of  the  time  derivative  of  the  argument  of  perigee 
b/.  And  for  one  last  time,  the  “maximum”  referred  to  in  the  graph  uses  the  fact  that  the 
perturbations  are  largest  when  the  eccentricity  is  at  its  niiiximum.  Figure  .5.20  shows  the 
differences  in  dJ  between  the  maximum  possible  eccentricity  and  a  zero  eccentricity. 

The  next  four  graphs.  Figures  5,21  through  5.24,  show  the  effects  of  varying  one  of 
«o.  Co.  or  I'o,  wlule  holding  the  others  constant.  The  perturlxHl  elements  for  the  following 
graphs  are  fto  and  Wo.  We  consider  Mo  an  unperturberl  element  since  for  our  purpo.ses 
we  do  not  really  use  the  true  mean  motion  but  instead  the  Kozai  mean  motion,  ‘t'he 
graphs  are  all  normalized  to  ]  at  some  meaningful  point  for  the  data.  The  perturbations 

*Thr  |u-rturbi4lion  i.«  « (uncliun  uf  niean  motion.  inclinAliMn,  and  Fi-tenlririty.  To  ihakr  thr  {wrlnrlution 
“ploi-aWr”.  wf  diminalrd  ihFFFFFntririty  dFpFndFncF.  For  rarh  mFan  motion  valuF  a  maximum  FfFFnirir- 
ity  U  i‘»m|>utF<|  Using  F(|ttation  S.J  and  thr  tFsoli  U  nsnl  in  iKf  iwrtnrbaiion  F«)uatian.  thus.  Fliminaling 
thr  FrrFnififty  drpFndFui'F.  Thr  pFrturbaiion  for  a  givrn  mFan  motion  and  inriination  i»  thnn  idottnl. 

*Tt>  »FF  thr  FifFcts  of  Fliminating  the  FFcrntririty  dFjjFndFnrr  of  iHf  perturbation,  thn  pFrinrbations 
wbFre  al-v)  romputni  for  a  »rro  eCFFotririty  instead  of  a  maximum  rccrniririly.  The  xero  FFrrniridty  rrsuli 
was  sublraetFd  from  thr  maximum  rcrmlririty  irsnlt  showing  rrrrntririty’s  impact  m  thr  perturbation 
for  a  given  mran  motion  ami  inclination. 


A  lA  (•v/4«y 


due  to  mean  motion  are  set  to  1  at  the  maximum  possible  mean  motion.  Eccentricity's 
perturbations  are  set  to  1  at  its  minimum  value  since  the  effects  ''explode”  at  very  high 
eccentricity.  And  finally,  the  perturbations  caused  by  inclination  are  normalized  to  1  at 
the  maximum  perturbation  value. 


Figure  .Mean  Motiuii  Influence  on  Node  and  Ferigw'  Motion. 


As  can  be  seen  by  this  section,  the  perturbation  effects  due  to  Jj  are  very  small,  and 
eccentricity’s  impart  is  orders  of  magnitude  less  than  the  others  since  the  mean  motion’s 
perturbation  drops  off  faster  than  ttie  eccentricity’s  perturbations  ran  grow. 


MAOnitUtt*  of  }/4 


R«laelv*  Magnltud*  of  d(ono9A>/dt 


INCLINATION  INFLU^NCE  ON  ARCUKENT  OP  PBRtGBE  MOTION 


Figure  5.24.  Inclination  Influence  on  Perigee  Motion. 
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5.3  Classification  Scheme  Development 


The  development  of  a  orbital-element-based  calssification  scheme  involved  more  of 
a  statistical  approach  rather  than  an  analysis  of  the  current  satellite  population  or  con¬ 
centration  on  the  Ji  perturbations.  After  examining  the  distributions  of  satellites  within 
the  Gabbard  classes  and  the  impacts  of  the  perturbations  we  decided  to  create  our  own 
classification  scheme  based  on  the  perturbations  the  satellites  experience.  The  population 
of  satellites  was  divided  into  classes  based  on  mean  motion,  eccentricity,  and  inclination 
since  these  are  the  elements  which  contribute  to  the  perturbations.  In  the  previous  section 
the  magnitudes  and  relative  impact  of  n«,o»  «o  and  *o  on  both  the  argument  of  perigee  (wq) 
and  the  ascending  node  (flo)  were  examined. 

In  the  graphs  in  the  previous  section  (Figures  5.2  i  through  5.24),  some  of  the  critical 
points  were  highlighted.  For  instance  we  considered  inclination  effects  on  tl  and  lj.  There 
are  thr«i  divisions  which  occur  and  Table  5.3  shows  the  directions  of  the  perturbations. 

Table  5.-b  Sign  Kffects  on  Perturbations  Due  to  Inclination. 


Inclination 

.Si 

gi> 

n 

tlcRrcw 

+/- 

+/- 

i  <  63.43.50 

4- 

- 

63.4350  <  i  <  00.0000 

- 

- 

90.0000  <  1  <  1 16.,5648 

- 

-1- 

j  >  1 16..564K 

+ 

In.siend  of  using  just  the  four  inclination  ranges  corresponding  to  the  four  roinbi- 
nations  of  and  U  eirect.s,  we  created  two  additional  "deadbancls*'  almut  the  critical 
inchnation.s.  'I'he  <leadband.s  were  picktnl  to  be  a  total  width  of  O.t  radians  (about  ti”) 
wide  l)a.s(>d  on  a  ciaser  inspection  of  the  distribution  of  satellites  near  tiiis  inclination  with 
Itigliei  eccentricities  (Figure  K.IO).  '1‘able  .'i.-l  siimiiiari/es  the  six  inclination  rla.sses. 

Besides  inclination  classes,  we  divided  the  mean  motion  into  four  rla.<.ses.  The  uumix'r 
of  cla.sses  was  picket!  somewhat  arbitrarily  but  with  some  higic  behind  the  decision.  The 
first  class  divi.sion  we  derided  upon  was  the  22-’»  minute  periinl  u.setl  to  difierentiate  between 
the  .SGP-J  and  SDI’-t  orbit  propagation  nuMlels.  Wo  aJsr>  creattnl  two  other  divisions;  one 


Table  5.4.  Orbital  Classes  Based  on  Inclination. 


Inclination 

Inclination 

Si 

_ ii 

Class 

Min 

Max 

(jj 

mmi 

degrees 

degrees 

+/- 

+/“ 

1 

N/A 

60.5702 

+ 

- 

2 

60.5702 

66.2998 

0 

- 

,  3 

66.2998 

90.0000 

- 

- 

4 

90.0000 

113.7000 

- 

+ 

5 

113.7000 

119.4296 

+ 

6 

119.4296 

N/A 

'+ 

+ 

at  the  point  where  the  perturbation  level  was  20  percent  less  than  its  maximum  and  the 
second  at  the  50  percent  of  maximum  point.  The  grid-lines  on  Figure  5.21  in  the  previous 
section  denote  these  divisions  (see  Table  5.5). 


Table  5.5.  Orbital  Classes  Based  on  Mean  Motioii. 


Mean  Motion 
Class 

Mean  Motion 

Min 

Max 

tev/day 

rev/day 

!■■■■ 

N/A 

6.4000 

6.4000 

12.6633 

iSni 

12.6633 

15.4891 

4 

15.4891 

N/A 

Due  to  the  previous  analysis  on  Jj  perturbations,  we  decided  let  the  eccentricity 
classes  come  from  the  mean  motion  classes.  Figure  5.25  illustrates  what  was  done.  By 
using  the  maximum  eccentricity  based  on  mean  motion,  we  were  al)le  to  determine  the 
nraximun*  value  for  each  of  the  three  mean  motion  divisions.  Figure  5.25  shows  the  three 
eccentricities  which  are  at  the  intersections  of  the  mean  motion  and  maximum  eccentricity 
line.  These  three  eccentricities  were  then  plotted  on  Figure  .5.22  in  Section  5.2.  Since 
the  low  wcentricity  value  conlrihutes  wry  little  to  the  perturbations,  the  low  eccentricity 
■value  was  dropped  and  the  remaining  two  eccentricities  were  used  as  the  dividing  lines  for 
ecccnlricily  classes  (see  Table  ,5.6). 

Table  5.7  defines  each  of  the  classes.  1o  better  illustrate  the  clm:sifirations  Figure 
5.2C  shows  the  eccentricity  and  wean  motion  divisions.  The  six  inclination  classes  occupy 


5-21 


£cc«Rtrlcliy 


Table  5.6.  Orbital  Classes  Based  on  Eccentricity. 


Eccentricity 

Class 

Eccentricity 

Min 

Max 

1 

N/A 

0.179665 

2 

0.179665 

0.479510 

3 

0.479510 

N/A 

H04R  Hollon  In  r«v/44y 


Figure  5.2.5.  Maximum  Eccentricity  as  a  function  of  Mean  Motion. 
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each  of  the  seven  rectangles  in  the  lower-left  corner.  As  a  symbolic  short  hand,  when  a 
particular  class  is  discussed  it  will  be  in  the  following  order:  mean  motion  -  eccentricity  - 
inclination.  For  example  class  4-1-2  represents;  Mean  Motion  Class  4,  Eccentricity  Clasn 
1,  and  Inclination  Class  2. 


Table  5.7.  Summary  of  Orbital-Elemcnt-Based  Classes. 


Class 

Mean 

ilotiou 

Eccentricity 

Inclination 

Min 

Max 

Min 

Max 

Min 

Max 

rev/day 

tev/day 

degrees 

degrees 

1 

N/A 

6.4000 

N/A 

0.179665 

N/A 

60.5702 

2 

6.4000 

12.6633 

0.179665 

0.479510 

60.5702 

66.2998 

3 

12.6633 

15.4891 

0.479510 

N/A 

66.2998 

90.0000 

4 

15.4891 

N/A  . 

90.0000 

113.7000 

5 

113.7000 

119.4296 

6 

1 19.4296 

N/A 

MEAN  MOTCCW  AMD  ECCENTRICITY  CLASS  DIVISIONS 


Figure  Mean  Motion  and  Krrentririty  ('lass  Divisions. 


With  the  rla&ses  described  as  in  Table  T>.7,  the  KORTft.AN  rode  for  deerniing  the 
two-line  orbital  element  sets  was  modified  to  also  output  the  .satellites  into  their  respective 
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classes.  Table  5.8  shows  the  number  of  satellite  in  each  of  the  classes.  Appendix  F  lists 
the  FORTRAN  source  code  used  to  divide  the  satellites  into  their  classes.  Appendix  E.3 
contains  six  graphs  showing  the  distribution  of  the  current  population  in  these  classes. 


Table  5.8.  Satellite  Population  Within  Each  Element-Based  Class. 


O  E 

Class  Qty. ,  Pet. 


1- 

1-6 

1- 

2-1 

1- 

2-2 

1- 

2--! 

1- 

3-1 

1 

3-2 

1- 

3  3 

211 

2 

‘  2 

2- 

1  3 

2- 

mm 

2 

1  6 

2-: 

2  1 

2  ; 

2  2 

2  ; 

2  3 

2  2'!  1 

.3 

1-1 

3 

mm 

3 

1  3 

3  : 

1  1 

3  1 

1  5 

3 

1  u 

■1  : 

1  1 

<1  1 

1  2 

-I  1 

1  3 

•Ill 


OIHKH.S 


Mean 

Ifotion 

Min 

Max 

rev/day 

rev/day 

N/A 

6.400 

N/A 

6.400 

N/A 

6.400 

IKBS 

6.400 

1  N/A 

6.400 

imam 

6.400 

N/A 

6.400 

N/A 

6.400 

N/A 

6.400 

N/A 

6.400 

6.400 

12.66 

6.400 

12.66 

6.400 

12.66 

6.400 

12.66 

6.400 

12.66 

6.400 

12.66 

6.400 

12.66 

6.400 

12.66 

6.400 

12.66 

■nnniM 

12.66 

12.66 

15.49 

12.66 

15.10 

12.66 

15.49 

12.66 

15.19 

12.66 

15.49 

12.66 

15.19 

■am 

mtm\ 

15.40 

N/A 

15.10 

■aaaii 

Eccentricity 


Min  Max 


Inclination 


Min 


5.^  Representative  Satellite  Selection 


In  order  to  pick  a  representative  satellite  from  each  of  the  >cwly  formed  classes,  a 

Mathcmatica  function  was  written  to  read  in  an  entire  class  of  iratellites  and  then  compute 

♦ 

whicli  satellite  came  closest  to  the  ‘average  satellite’  for  the  class.  We  decided  on  using  this 
approach  over  using  the  average  because  we  wanted  to  deal  with  actual  satellites  instead 
of  a  non-existent  average  satellite.  Not  ail  elements  were  u.si:d  in  determining  the  closest 
satellite  to  the  ‘average  satellite,’  The  mean  anomaly  at  epoch  was  not  included.  The 
reason  for  excluding  the  mean  anomaly  was  we  would  expect  the  average  to  be  very  close 
to  180  degrees  and  which  would  make  it  very  likely  that  satellites  with  a  mean  anomaly 
of  180  would  be  selected.  Since  mean  anomaly  change-s  constantly  throughout  the  orbit 
it  was  an  unnecessary  restraint.  Appendix  F  ha<:  the  developed  Mathematica  function 
for  performing  the  satellite  selection,  and  it  also  lists  the  satellites  selected  in  each  of  tlie 
classes. 

Once  a  satellite  was  selected  for  each  of  the  classes,  we  decided  to  hand  pick  a  repre¬ 
sentative  sample  of  classes  (.satellites)  to  perf-.-rm  our  analy.sis  on  the  differential  corrector 
model.  Table  .'>.9  shows  the  classes  and  the  satellites  picked.  I'hrw  factors  were  part  of 
the  dei'ision  process  at  this  |)oint.  First,  we  wanted  to  select  classes  which  had  particular 
types  of  satellites.  For  Instance,  (1a-..s  111  contains  geosynchronous  satellites.  .Second, 
the  classes  with  the  most  satellites  were  selected  lor  further  analysis,  (lasses  ‘.i  1  :i  and  3 
I  'I  were  .selected  for  this  reasofi.  Aiul  rinally,  some  classes  wore  selected  for  add(<d  diversity 
in  our  analysis.  Classes  'i  2  is  an  example  cf  a  cla.s.s  seU'Cttnl  for  added  diversity. 

Table  .'i.9.  (’la.sses  Selected  for  Differential  (’orrwtor  Model  .Analysis. 


li  (‘lass 

('ntniog  Niiinle-r 

( 'liUM 

IHD 

15MI 

3  1  1 

01996 

1  1  2 

15259 

3  1  2 

11113 

1  3  2 

11199 

3  1  3 

196-13 

2  1  3 

Em 

17-129 

2  1  -1 

19393 

^  1 1 

20335 

2  2  3 

19H.5n 

■1  1  2 

155.'t-| 

5.5  Data  Discrepancies 


Some  problems  were  encountered  in  producing  truth  model  data  for  the  represen¬ 
tative  satellites  selected  from  the  mean  motion  range  four  classes  (4-1-1,  4-1-2,  4-1-3, 
4-1-4).  Consequently,  an  individual  cross  check  of  each  of  the  67  satellites  in  these  four 
classes  with  the  Satellite  Catalog  (33)  was  performed.  It  was  discovered  that  46  of  the  67 
satellites  in  these  four  classes  were  listed  as  having  decayed  within  60  days  of  the  orbital 
element  set  epoch  data.  As  our  testing  criteria  required  a  run  of  60  days,  these  satellites 
were  excluded  from  selection. 

During  the  course  of  this  inspection,  we  discovered  12  additional  satellites  included 
in  these  classes  were  listed  as  having  decayed  prior  to  the  epoch  data  of  the  orbital  element 
set.  These  satellites,  and  the  pertinent  daita,  are  included  in  Table  5.10. 


Table  5.10.  Orbital  Element  Set  Discrepancies. 


Satellite 

Number 

Element  Set 
Number 

Element  Set 
Epoch  Date 

Satellite  Catalog 
Decay  Date 

13222 

001 

90111.81766866 

14  Aug  92 

16640 

000 

90110.75000000 

05  Apr  86 

02673 

000 

90101.75891899 

13  Dec  67 

13078 

001 

90116.31294873 

06  Apr  82 

13102 

000 

90117.80489262 

01  Apr  82 

13179 

000 

90118.60021568 

19  May  82 

19131 

073 

90086.49108799 

iKlKlISiSH 

20334 

236 

90061.5.59.33732 

13174 

000 

90107.44919305 

15  May  82 

01073 

000 

90063.498.59744 

12  Nov  u4 

01473 

000 

90081.29833T24 

13097 

000 

901 18.78672990 

21  Mar  82 

Compiled  from  (33) 


VI.  ANALYSIS  OF  DIFFERENTIAL  CORRECTOR  MODEL 

As  discussed  in  Chapter  IV,  we  divided  the  satellite  population  into  42  classes  based 
on  combinations  of  six  inclination,  three  eccentricity,  and  four  mean  motion  ranges.*  Based 
on  the  analysis  of  the  satellite  population  discussed  in  Chapter  VI,  we  divided  the  satellite 
catalogue  into  the  33  populated  classes  and  picked  the  “average”  satellite  from  each  class. 
These  satellites  are  listed  in  Appendix  F.6.  From  these  33  classes,  we  selected  12  satellites 
to  analyze."  These  satellites  are  listed  in  the  table  below. 


Table  6.1.  Representative  Satellites  for  Analysis. 


Class 

Catalog  Number. 

.  Class 

Catalog  Number 

1-1-1 

15141 

3-1-1 

01996 

1-1-2 

152.59 

3-1-2 

14443 

1-3-2 

14199 

3-1-3 

19643 

2  1-3 

10293 

.3-1  -4 

17429 

2  14 

10.393 

4-1-1 

20335 

2  2  3 

198.59 

4-1-2 

15584 

Using  the  methodology  discussed  in  Chapter  IV,  an  orbital  element  set  for  each 
of  these  12  satellites  wsis  processed  through  the  truth  model  to  obtain  simulateri  sensor 
measurements.  The  model  createrl  a  total  of  40  random  observation  files;  10  random 
observation  files  for  each  of  the  four  observation  rates  (two,  four,  six.  and  eight)  to  be 
tested.  Fach  random  observation  file  was  then  processed  through  DIFC  for  each  of  the 
four  bUFIs  (two.  four,  six,  and  eight  days)  to  be  tested.  The  first-pa,ss  and  last-pass 
VM.AC'l’  errors  (residuals)  for  each  random  ob.servation  file  were  calculated  and  stored  to 
the  appropriate  files  based  on  l.UPI/OFI)  combination.  .*\s  disciis-sed  in  Chapter  IV,  a 
fixed  meati  motion  variance  limit  of  10“’®  rad’/min’  was  used. 

6‘./  .'Uitihjsis  of  ItitUndual  .SalrUilr  VAfACT  Palo. 

F«»r  each  salellite/l(UFl/OPI)  riunbinatinn.  all  data  from  the  10  VM.<\(!T  files  were 
plotted  in  conjunction  with  a  four-day  moving  average  using  the  .Mathematira  «>ft ware  plot 

'"fhr  tiillrirnrr  Ivrtwtvn  42  rljusn  ami  ux ’<<4  a  72  i»  ibai  20  of  ihr  ronibinatiun*  of  u>.  to.  »ml  mo  »tr 
•mfuMsibIr. 
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routine.  Using  the  programming  ability  built  into  Mathematica,  we  constructed  a  program 
to  calculate  the  95  percent  confidence  intervals  of  the  means,  variances  and  99  percent 
confidence  levels  as  presented  in  Equations  4.27,  4.28,  and  4.29.  (Reference  Appendix 
G  for  the  Mathematica  code  used  to  perform  these  calculations  and  produce  the  graphs. 
Reference  Appendix  H  for  the  VMAGT  graphs  and  summary  tables  for  each  of  the  16 
LUPI/OPD  combinations  tested  for  the  12  satellites  in  Table  6.1.) 

The  following  sections  review  each  sample  satellite  tested,  examining  the  data  with 
respect  to  the  following  four  performance  measures: 

1.  “First-pa.ss”  VMAGT  data.  Expect  to  observe  reasonable  values  (approximately  14 
km  or  less  for  near-earth  satellites  and  20  to  40  km  for  deep-space  .satellites),  a 
“saw-tooth”  correction  pattern,  and  no  trends  or  serious  outlying  data. 

2.  “Last-pass”  VMAGT  values.  Expect  to  observe  steady-state,  randomly-distributed 
values  at  a  level  less  than  first-pass  values. 

3.  OPI)  cficct  on  the  99  percent  GL.  Expect  to  observe  that  99  percent  GL  value  de¬ 
creases  as  OPD  increases. 

4.  effect  on  the  99  percent  (M..  Expect  to  observe  that  99  percent  CL  value 
increa.se.s  as  LUPI  increases. 

•I.  Analysis  of  variance  (ANOVA).  ExptTt  this  analysis  to  verify  statistical  differences 
exist  in  99  percent  GL  value  results  based  on  effects  of  OPI)  and  LUPI  combinations. 

6.1.!  ('Ians  I  I  I  (i\()lt.-\!)  Cttialotj  t\umbtr  15141).  A  summary  of  the  confidence 
interval  analysis  and  the  VM.AGT  graphs  for  all  LUPl/OPl)  combinations  tested  for  this 
satellite  are  located  in  Appendix  ll.l.  Data  analysis  with  respect  to  the  performance 
measures  atrove  indicate  the  following: 

•  Examination  of  the  ftrst<pa.ss  VM.A(;T  values  for  this  satellite. indicated  two  peaks. 
The  peak.s  h»r  residual  values  ocrurreil  in  the  periods  of  Days  2  through  10  and 
Days  36  through  16.  We  Mieve  this  indicate  a  pmblem  with  the  dilTerential  cor¬ 
rector  program  correcting  to.  and  propagating,  a  bad  .state  estimate.  This  could  be 


caused  by  the  mean  motion  variance  limit  being  unnecessarily  large,  thus  reducing 
the  confidence  in  n  previously  good  estimate. 

•  Examination  of  the  last-pass  VMAGT  values  showed  randomly-distributed,  steady- 
state  values  at  a  level  less  than  first-pass  values. 

•  Examination  of  the  OPD  effects  on  the  99  percent  CL  show  that,  for  all  cases  with 
this  satellite,  the  99  percent  CL  decreases  as  OPD  increases.  This  was  the  expected 
result. 

•  Examination  of  the  LUPI  effects  on  the  99  percent  CL  show  that,  for  the  OPD  2 
cases  with  this  satellite,  the  99  percent  CL  increases  as  LUPI  increaises.  This  was 
the  expected  result.  However,  for  the  OPD  4,  6,  aikd  8  cases,  the  large  overlapping 
confidence  intervals  make  a  determination  impossible. 

•  ANOV.'V  indicates  there  arc  differences  in. results  based  on  OPD  and  LUPI.  However, 
there  appears  to  be  no  difference  in  results  based  on  the  interaction  of  LUPI  and 
OPD. 

6.1. :i  (’ltts.s  I  I  2  (!^OH.Al)  Calalafi  Number  15^59).  A  summary  of  the  confidence 
interval  analysis  and  the  VM.ACT  graphs  for  all  LUPI/OPD  combinations  tt'stcHl  for  this 
satellite  are  lorat(>d  in  Appc'iidix  H.2.  Data  analy.sis  with  respect  to  the  performance 
measures  above  indicate  the  following: 

e  E.<aminatiun  of  the  first-pa-ss  V'MAfiT  values  for  this  satellite  indicated  reasonable 
and  consistent  <Iata  with  exp<“cte<l  re.siilt.s.  However,  with  the  data  from  LUPI  S, 
there  is  a  noticeable  peak  in  the  data  during  Hatch  This  elfiH-t  may  Ik*  due  to  the 
D(’  producing  a  bad  estimate  at  the  end  of  Hatch  1.  Additionally,  the  99  percent 
('1.  for  the  best  pcvvsible  H'Pl/OPD  combination  (8/2)  was  well  below  the  14  km 
VMAC;  limit  useil  by  U.S,SPACK<*OM. 

•  Kxnminalion  of  the  last-pass  VM.AtJT  values  showed  randomly-distributed,  steady- 
state  values  at  a  level  less  than  r(rsl-pa.*ui  valui*s. 


•  Examination  of  the  OPD  effects  on  the  99  percent  CL  show  that  the  99  percent  CL 
generally  decreases  as  OPD  increases.  OPD  4  for  LUPI  2  and  4  increa.sed  slightly 
but  decreased  for  the  6  and  8  OPD.  This  decreasing  trend  was  the  expected  result, 

•  Examination  of  the  LUPI  effect.*;  on  the  99  percent  CL  show  that,  for  OPD  2  cases 
with  this  satellite,  the  99  peiccnt  CL  increa.ses  as  LUPI  increa.ses.  This  was  the 
expected  result.  However,  for  the  OPD  4,  6,  and  8  cases,  the  large  overlapping 
confidence  intervals  make  a  determination  impossible. 

•  ANOVA  indicates  there  are  differences  in  results  based  on  OPD  and  LUPI.  Addi¬ 
tionally,  there  appears  to  be  a  difference  in  results  ba.se<l  on  the  interaction  of  LUPI 
and  OPD. 

Class  t  2  (NORA  I)  Catalog  Sumber  14199).  summary  of  the  confidence 
interval  analysis  and  the  VMACT  graphs  for  all  LUPI/OPD  combinations  testwl  for  this 
satellite  are  locator!  in  Appendix  ll.H.  Data  analysis  with  respcTt  to  the  performance 
measures  above  indicate  the  following: 

•  Examination  of  tin*  first-pa-ss  V.MACT  x‘nlu«*s  for  this  sateliitr*  showetl  large  values 
with  <*crasi«»nal  peaks  with  a  slight  positive  s1o|m*  of  the  data  within  batches.  The 
large  \'.\I.'\(!'t'  valuta  are  probably  due  to  the  properties  assuriatr<l  with  the  orbital 
dynamics  as.s«wiate<|  with  this  class. 

•  Examination  of  the  lu.st  pa.ss  VM.AftT  X'alues  shower!  ranriomly-distributerl.  .steatlv' 
state  values  at  a  level  less  than  first -pas.>  valiu's. 

•  Examinatirm  of  the  OPI)  effects  on  the  *19  percent  Cl,  slu>w  that,  for  all  cases  with 
this  satellite,  the  99  percent  Cl.  rlrHTea.<irs  as  OPD  ilicreO-ses.  This  wa.s  the  ex|>ertei| 
result. 

•  Examination  of  the  I.l’Pl  effertson  the  99  percent  (‘1,  show  that,  for  theOPl)  2  rases, 
the  99  percent  (“1.  increases  as  I.CPl  inrrea-ses.  for  all  other  rasi-s.  the  confidence 
intervals  are  very  large  and  t»verlapping.  and  the  99  percent  (*L  are  nt>l  signirirantly 
differeni  entuigh  lr>  draw  any  roncluM'r»n.s. 


•  ANOVA  indicates  there  are  differences  in  results  based  on  OPD,  but  not  on  LUPI. 
Additionally,  there  appears  to  be  no  difference  in  results  based  on  the  interaction  of 
LUPI  and  OPD. 

6.1.4  2-1-3  (NORAD  Catalog  Number  10293).  A  summary  of  the  confidence 

interval  analysis  and  the  VMAGT  graphs  for  all  LUPI/OPD  combinations  tested  for  this 
satellite  are  located  in  Appendix  II.4.  Data  analysis  with  respect  to  the  performance 
measures  above  indicate  the  following: 

•  Examination  of  the  first-pass  VMAGT  values  for  this  satellite  showed  small  values 
which  showed  occasional  peaks  and  a  slight  positive  slope.  The  99  percent  CL  for 
the  best  possible  LUPI/OPD  combination  (8/2)  was  well  below  the  H  kin  VMAG 
limit  used  by  US.SPACEOOM. 

•  Examination  of  the  last-pass  VM.AGT  values  showed  randomly-distrilxited,  steady- 
state  values  at  a  level  less  than  first-pas.K  values  with  a  slight  periodic  effect. 

•  Examination  of  the  OPD  effects  on  the  99  percent  CL  show  that,  for  all  cases  with 
this  satellite,  the  99  percent  CL  decreases  as  OPD  increases.  This  was  the  expected 
result. 

•  Examination  of  the  LUPI  effect.s  on  the  99  percent  CL  show  that,  for  all  cases  with 
this  satellite,  the  overlap  of  the  99  percent  (i,  makes  a  determination  impossible 
for  this  satellite.  We  believe  this  situation  could  be  elitninatetl  in  future  research  by 
increasing  the  number  of  random  observation  runs. 

•  AXOV.A  indicates  there  are  differences  in  results  baseil  on  OPD  and  M“PI.  There 
may  be  a  difference  in  results  based  on  the  interaction  of  1.1-PI  and  OPD.  Howev'er, 
the  ANOV.4  results  are  the  same  to  the  measured  accuracy  and  no  determination 
can  be  made. 

$.l.i  {3a.*s2  I  4  (SoR.AP  t’atalog  Sumbrr  10.^93).  A  summary  of  the  ronfideaie 
interval  analysis  and  the  VMAtJT  graphs  tor  all  l.fPI/OPD  combinations  tested  for  this 
satellite  are  located  in  Appendix  H.J».  Data  analysis  with  respect  to  the  pt^Wmancr 
measures  above  indicate  the  follou-ing: 


•  pAamination  of  the  first-pass  ViVlAGT  values  for  this  satellite  indicaterl  small,  rea¬ 
sonable,  and  consistent  values  with  a  slight  positive  slope.  However,  the  99  percent 
CL  for  the  l>est  possible  IjUPI/OIM)  combination  (8/2)  was  well  below  the  14  km 
VMAG  limit  used  by  USSl’Af^PX’OM 

•  Kxamination  of  the  la.st-pa.ss  VMAGT  values  showed  randomly-distributed,  steady- 
state  values  at  a  level  less  than  first-pass  values. 

•  H.xamination  of  the  OPI)  effects  on  the  99  |>ercent  CL  show  that,  for  all  cases  with 

this  satellite,  the  99  percent  CL  decreases  as  OPI)  increase.  This  was  the  expected 

result. 

•  Kxamination  of  the  Ll'Pl  effects  on  the  99  percent  CL  show  that,  for  all  rases  with 

this  satellite,  the  confidence  interval  overlap  of  the  99  percent  (‘L  makes  a  determi¬ 

nation  im|>as.sihle  for  this  satellite.  We  believe  this  situation  rould  be  eliniinaterl  in 
future  r«‘searrh  by  increasing  the  number  of  random  observation  runs. 

•  .-VNOV.-K  indicates  there  are  differences  in  results  based  on  OPI)  and  LC PI.  However, 
there  is  not  a  difference  in  results  based  on  the  interaction  «»f  Lt-Pl  and  OPI). 

6.1.6  (‘Ittsf  -  ^  (‘atttlog  Suiuhtr  I9!<69).  summary  of  the  confidence 

interval  analysis  and  the  V.MACiT  graphs  for  all  l,l‘PI/OPI)  rombinations  testecl  for  this 
satellite  are  localetl  in  .appendix  H.6.  Data  analysis  with  re.^pect  to  tl..-*  performance 
measures  above  indicate  the  following: 

•  Kxamination  of  the  firsl  pass  VMACJT  values  for  this  satellite  shtiwed  small,  reason 

able,  and  condslenl  value*  with  a  slight  positive  slope.  The  !)9  |.»crrent  {‘I.  for  the 
best  l.t*PI/Ol’l)  combination  (h/2)  was  well  below  the  H  km  limit  ased  by 

ISSPACKCO.M. 

•  Kxamination  of  the  last-pass  VMAGT  values  showx-d  steady- state  values  at  a  level 
less  ibaii  first-pass  values.  The  data  also  showed  a  slight  periodic  effect,  damping 
with  each  successive  l»alch  correction. 


•  Examination  of  the  OPD  effects  on  the  99  percent  CL  show  that,  for  aff  cases  with 
this  satellite,  the  99  percent  CL  decreases  as  OPD  increases.  This  was  the  expected 
result. 

•  Examination  of  the  LUPI  effects  on  the  99  percent  CL  show  that,  for  all  cases  with 
this  satellite,  the  overlap  of  the  99  percent  CL  makes  a  decermination  impossible 
for  this  satellite.  We  believe  this  situation  could  be  eliminated  in  future  resec-rch  by 
increasing  the  number  of  random  observation  runs. 

•  ANOVA  indicates  there  are  differences  in  results  based  on  OPD  but  not  on  LUPI. 
However,  there  is  a  difference  in  results  based  on  the  interaction  of  LUPI  and  OPD. 

6.1. 7  Class  3-1-1  (NORAD  Catalog  Numbtr  01996).  A  summary  of  the  confidence 
interval  analysis  and  the  VMACT  graphs  for  all  LUPI/OPD  combinations  tested  for  this 
satellite  arc  located  in  Appendix  IL7.  Data  analysis  with  respect  to  the  performance 
measures  above  Indicate  the  following: 

•  Examination  of  the  first-pass  VMAGT  values  for  this  satellite  showed  a  severe  posi¬ 
tive  slope  on  all  batches.  This  trend  becomes  noticeable  on  the  LUPI  4  combinations 
and  is  extremely  obvious  on  the  LUPI  8  combinations.  Reference  Figure  H.62  for  a 
good  example  of  this  trend.  This  trend  appears  to  indicate  that  the  covariance  ha-s 
become  too  exact  (very  small)  and  therefore  the  differential  corrector  is  not  allowing 
the  elements  to  be  corrected.  Despite  this  apparent  problem  with  the  0C\  the  99 
percent  CL  for  all  LUPI  2  combination.s  wa.s  below  the  H  km  VMAtl  limit  usetl  by 
USSPACECOM. 

•  Examination  of  the  last-pass  VMAGT  values  showed  values  h>s.><  than  first-pass  values. 
However,  the  data  showed  a  slight  periodic  effect  with  iMiaks  at  the  beginning  and 
end  of  each  batch. 

•  Examination  of  the  OIM)  on  the  99  percent  Cl.  show  that,  fur  alt  cases  except 
the  LUPI  2,  ()•*!)  8  combination,  the  99  percent  CL  decreases  a,s  OPD  inrci.a.'U’S.  In 
the  LUPI  2,  OPD  8  combination,  the  large  overlap  of  the  confidence  intervals  makes 
a  determination  impo.s.sible.  'I'liese  iX'snlt.s  are  consistent  with  thojie  «s.xperUnl. 


•  Examination  of  the  LUPI  effects  on  the  99  percent  CL  show  that,  for  all  cases  with 
this  satellite,  the  99  percent  CL  increases  as  LUPI  increases.  This  was  the  expected 
result. 

•  ANOVA  indicates  there  are  differences  in  results  based  on  OPD  and  LUPI.  Addi¬ 
tionally,  there  is  a  difference  in  results  based  on  the  interaction  of  LUPI  and  OPD. 

ff.  1.8  Class  3-1-2  (NORAD  Calalocj  Number  t44W-  A  summary  of  the  confidence 
interval  analysis  and  the  VMAGT  graphs  for  ail  LUPI/OPD  combinations  tested  for  this 
satellite  are  located  in  Appendix  H.8.  Data  analysis  with  respect  to  the  performance 
measures  above  indicate  the  following; 

•  Examination  of  the  first-pass  VMAGT  values  for  this  satellite  showed  a  slight  positive 
slope  on  all  batches.  De.spite  this  apparent  problem  with  the  DC,  the  99  percent  CL 
for  all  LUPI/OPD  combi nationii  with  LUPI  of  2,  4,  and  6,  was  below  14  km  VMAG 
limit  used  by  US.SPACECOM. 

•  Examination  of  the  last-pa.s?  VMAGT  values  .showed  valu(*s  les.s  than  first-pass  values. 
However,  the  data  «liowe<l  a  periodic  effect  with  an  apparent  slight  upward  slope  of 
the  data  within  each  batch 

•  Examination  of  the  OPD  effects  on  the  99  percent  <’L  show  that,  for  all  cases  except 
all  OPD  .8  combinations,  the  99  percent  CL  (h-wreases  as  OPD  increases.  In  all  OPD 
8  combiitations.  the  largo  owriap  of  the  confidence  interval  with  the  resp<Tlive  OPD 
fj  con.ficienctf  'ntervaJ  makes  a  delenninatHMi  imjMtssible.  These  results  are  consistent 
with  those  exported. 

»  E.X»mination  of  the  lUPI  eTet  ts  on  the  99  percent  Cl,  show  that,  for  alt  caws  with 
this  satellite,  the  {>9  percent  (!{.  increases  a.<  Ll’Pl  increasis.  This  was  the  expected 
resell. 

•  AXOVA  indicates  there  ^re  dilfercflces  ui  res>ills  Iw'ed  >.n  OPD  and  l.l'PI.  Ihwever, 
there  is  not  a  difference  in  resnUct  based  on  the  interaction  of  LUPI  atxl  OPl). 


6. 1.9  Class  S-l-S  (NORAD  Catalog  Number  19643).  A  summary  of  the  confidence 
interval  analysis  and  the  VMAGT  graphs  for  all  LUPI/OPD  combinations  tested  for  this 
satellite  are  located  in  Appendix  H.9.  Data  analysis  with  respect  to  the  performance 
measures  above  indicate  the  following: 

•  Examination  of  the  first-pass  VMAGT  values  for  this  satellite  showed  an  positive 
siope  on  some  batches.  This  slope  is  noticeable  on  the  LUPI  6  combinations  and 
extremely  obvious  on  the  LUPI  8  combinations.  Reference  Figure  11.80  for  a  good 
example  of  this  tren<l.  This  trend  appears  to  indicate  that  the  covariance  has  be¬ 
come  too  exact  (very  small)  and  therefore  the  differential  corrector  is  not  allowing 
the  eiements  to  be  corrected.  Despite  this  apparent  problem  with  the  DC,  the  99 
percent  CL  for  some  LUPI/OPD  combinations  was  below  14  km  VMAG  limit  used 
by  USSPACECOM.  The  best  LUPI/OPD  combinations  performing  better  than  the 
USSPACECOM  limit  are  the  6/4  (best  LUPI)  and  the  4/2  (best  OPD)  combinations. 

•  Examination  of  the  last-pass  VMAGT  values  showed  randomly-distributed,  steady- 
state  values  at  a  level  loss  than  first-pass  values.  This  was  the  expected  result. 

•  Examination  of  the  OPD  efierts  on  the  99  percent  CT  show  that,  for  all  cases  except 
LUPI  2,  OPD  4,  and  LUPI  2,  OPD  6  combinations,  the  99  percent  CL  decreases  as 
OPD  increases.  In  thtse  two  cases  the  large  overlap  of  the  confidence  intervals  makes 
a  determination  impossible.  These  results  are  consistent'  with  those  expected. 

•  Examination  of  the  l.UPI  elfert.s  on  the  99  percent  CL  show  that,  for  ail  rases  with 
this  satellite,  the  99  percent  (‘L  increa-sr^*  a.s  LUPl  increases.  This  was  the  expecterl 
result. 

•  .<\N()V\  indicate.'  there  are  diflerences  in  results  ba.sed  on  OPD  and  LUPI.  However, 
there  is  not  a  difference  in  results  based  on  the  interaction  of  LUPI  and  OPD. 

6.1.1!)  C/rtJW  .ill  (SOIt.'Kl)  (‘ttialog  Sumbrr  17439).  .summary  of  the  confi¬ 
dence  interval  analy.sis  and  the  VM.\GT  graphs  for  all  LUPI/OPD  combinations  teslet! 
for  this  satellite  are  located  in  Ap|>endix  H.IO.  Data  analysis  with  respect  to  the  perfor¬ 
mance  measures  above  tnclicate  the  fidlowing: 


•  Examination  of  the  first-pass  VMAGT  values  for  this  satellite,  especially  the  longer 
LUPIs,  showed  a  similar  upward  sloping  trend  on  some  batches.  This  trend  typically 
alternates  magnitude  (high-low)  between  batches.  A  good  example  of  this  is  seen 
in  Figure  1  ..87.  It  appears  to  indicate  that  the  covariance  has  become  too  exact 
(very  small)  and  therefore  the  differential  corrector  is  not  allowing  the  elements  to 
be  corrected. 

•  Examination  of  the  last-pass  VMAGT  values  showed  values  less  than  first-pass  values. 
However,  a  slight  upward  trend  from  batch  to  batch  was  noted,  with  later  batches 
having  growing  ranges  of  values. 

•  Examination  of  the  OPD  effects  on  the  99  percent  CL  show  that,  for  all  cases  with 
this  satellite,  the  99  percent  CL  decreases  as  OPD  increases.  This  was  the  expected 
result. 

•  Examination  of  the  LUPI  effects  on  the  99  percent  CL  show  that,  for  all  ca.ses  with 
this  satellite,  the  99  percent  CL  iiicrea.ses  as  LUPI  increases.  This  was  the  expected 
result. 

•  ANOVA  indicates  there  are  differences  in  results  based  on  LUPI  but  not  on  OPD. 
Additionally,  there  is  not  a  difference  in  results  based  on  the  interaction  of  LUPI  and 
OPD. 

6.1.  il  Claan  4  I  I  (NOR.M)  Catalog  i\umbtr  20355).  A  summary  of  the  coufi- 
deuce  interval  analysis  and  the  VMAG'I'  graphs  for  all  LUPI/OPI)  combinations  testwl 
for  this  satellite  are  located  in  Appendix  II.  11.  Data  analysis  with  respect  to  the  iHTfor- 
mance  measures  above  indicate  the  following: 

•  Examination  of  the  first-pass  V.M.AGT  values  for  this  satellite  .sIiowchI  that  the  data 
was  distributed  over  a  wide  range  with  steady-stale  mean  values  |M*lween  and 
.272  km.  Examination  of  the  OPD  6  .■»nd  X  graph  (Eigvire  ll.92|  shows  a  definite 
upward  slc»|)e.  This,  like  many  previous  .satellites  analy/eil,  seems  to  indicate  that  the 
covariance  has  iHH-ome  tiH»  exact  (very  small)  and  therefore  the  dilferenlial  corrector 
is  not  allowing  the  elements  to  lie  correcteil. 


•  Examination  of  the  last-pass  VMAGT  values  showed  randomly-distributed,  steady- 
state  values  at  a  level  less  than  first-pass  values.  They  are,  however,  much  larger 
than  other  last-pass  values  seen  in  the  analysis  of  other  satellites. 

t  Examination  of  the  OPD  effects  on  the  99  percent  CL  show  that,  for  all  cases  with 
this  satellite,  the  99  percent  CL  decreases  as  OPD  increases.  This  was  the  expected 
result. 

•  Due  to  program  run  time  and  extremely  large  VMAGT  values,  only  the  LfJPl  two 
combinations  were  analyzed  for  this  satellite.  Therefore,  no  LUPI  effects  on  the  99 
percent  CL  could  be  noted. 

•  Due  to  the  limited  nature  of  the  output,  ANOVA  was  not  conducted  on  this  satel¬ 
lite.  The  absence  of  a  complete  output  data  set  would  make  ANOVA  comparisons 
unreliable. 

6.1.12  Cluss  4  t  2  (NOR.AI)  Calalog  Number  I5584)-  A  summary  of  the  confi¬ 
dence  interval  analysis  and  the  VMAGT  graphs  for  all  LUPl/OPl)  combinations  tested 
fur  this  satellite  are  located  in  Appendix  11.12.  Data  analysis  with  respo<‘t  to  the  perfor¬ 
mance  measures  above  indicate  the  following: 

•  E.xamination  of  the  rirst-pn.ss  VM.AGT  value.s  for  this  .satellite  showtsl  that  the  data 
wjus  distributed  over  a  wide  range  with  steady-state  mean  values  iM’tww'n  .'IS  and 
'ilTt  km.  Examination  of  the  OI'I)  G  and  >s  graph  (Figure  H.9.'i)  shows  a  definite 
upward  .-ilojre.  This,  like  many  previous  .satellites  analymi,  seems  to  indicate  that  the 
covariance  has  bwime  tm* exact  (very  small)  am)  therefore  the  differential  corrector 
is  not  allowing  the  elements  to  be  correctetl. 

•  Examination  of  the  la.Ht-pa.vs  VMAttT  values  showed  randomly-distributed,  steady- 
stale  values  at  a  level  less  than  first -pa-v.  values.  Thiw  an\  however,  imich  larger 
than  other  last-pa.vi  values  seen  in  the  analy.sis  of  other  satellites. 

•  Examination  i»f  the  OPD  effe«-ts  >.11  the  ua  percent  t'l,  show  tha*.  for  all  cases  with 
this  .satellite,  the  99  percent  ('I.  derrea.M’s  a.s  OPD  increa-ses.  This  was  the  rX]*ec!et! 
r«-sult. 
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•  Due  to  program  run  time  and  extremely  large  VMAGT  values,  only  the  LUPI  two 
combinations  were  analyzed  for  this  satellite.  Therefore,  no  LUPI  effects  on  the  99 
percent  CL  could  be  noted. 

•  Dtie  to  the  limited  nature  of  the  output,  ANOVA  was  not  conducted  on  this  satel¬ 
lite.  The  absence  of  a  complete  output  data  set  would  make  ANOVA  comparisons 
unreliable. 

6.2  Tuning  the  Differential  Corrector 

As  mentioned  in  numerous  analyses  of  the  sample  satellites  in  Section  6.1,  our  DC 
appears  to  have  a  problem  with  the  correction  of  the  elements.  It  appears  from  the  VMAGT 
plots  of  many  of  the  satellites  tested  that  the  covariance  gets  so  small  that  it  will  not  allow 
some,  or  all,  of  the  elements  to  be  corrected  by  the  value  that  is  actually  needed.  This 
would  result  in  a  “bad”  estimate,  and  the  the  large  VMAGT  values  seen  in  the  above 
analysis. 

This  problem  was  first  noterl  in  the  validation  of  the  diflcreutial  correction  model. 
All  satellites  being  tested  exhibited  the  same  severe  positive  slope  to  the  VMAGT  data 
within  each  batch.  Figure  G.I  shows  the  data  for  Class  3  1  2  (Catalog  Numb<‘r  M4‘13)  as 
eucounter«*d  during  validation.  This  is  representative  of  the  data  for  all  test  cases. 

VVe  assumed  this  effect  was  due  to  a  bad  mean  motion  estimate.  Through  experimen¬ 
tation,  we  determined  that  a  mean  motion  variance  “limit"  of  10”'^  seemed  to  perform  the 
best.  During  the  experimentation,  the  “limit"  appeared  to  be  dependent  on  the  batch  size. 
However,  no  combination  of  batch  size,  LUPI,  and/or  OPI)  multiples  could  be  determinerl 
which  worked  well.  Therefore,  the  10~'^  limit  was  hard  coded  into  the  motlel  such  thii>  if 
the  (7,7)  element  (o/,)  of  the  covariance  matrix  was  less  than  thi-s  N'alue,  then  <r’^  was  set 
to  10"'^. 

The  model  was  then  used  on  all  16  Ll’PI/OPI)  combinations  for  all  12  satellite 
(orbit)  classes  investigated.  .\.s  lilusirated  by  the  current  LUPI  X,  OPI)  H,  VM.^GT  plots 
for  (‘la-ss  3  I  2.  (‘atalog  Number  M'M3  ( Figure  11.71 ).  this  limitation  appeared  to  work  for 
most  rla-Ssses.  However,  this  limit  apparently  did  not  work  for  Clas.ses  3  1  1.3  1  3.  3  1  -I. 


a  OB5/OAY  -  TRUE  POSITIOH  ERROR  AND  4  DAY  HOVINC  AVERAGE 


Figure  6.1.  Old  VMAGT  data  for  Class  3  1-2  (Catalog  Number  Md43). 

4  I  I, and  4- 1-2  (Catalog  Numbers  01996,  19643,  17429,  and,  possibly,  20335  and  15.564) 
as  .shown  in  in  Sections  11.7,  H.9,  H.IO,  H.ll,  and  H.12,  respectively.  VVe  believiHl  this 
indicat(*d  two  things;  first,  the  limit  for  these  satellites  should  have  bwn  set  at  a  higher 
value,  and  second,  the  limit  value  re<|uired  is  satellite,  or  orbit,  de|>endent. 

In  attempt  to  determine  if  the  mean  motion  variance  limit  usetl  in  our  model  was 
not  nstritiive  enough,  the  five  classes  (.sample  orbits)  exhibiting  the  severe  positive  slope 
of  the  V.M.ACT  data  were  examined.  Those  classes  (orbits)  were: 


3  1  1 

((‘atalng  .Number  01996) 

3  I  3 

((‘alali^  .Number  19643) 

3  1  1 

(Catalog  Number  17429) 

4  1  1 

((‘atalog  .Number  20335) 

1  1  2 

(Catalog  .Number  l.Vi,'*4| 

Assuming  that  the  VMAGT  errors  were  primarily  in-track  errors  (i.e.,  caused  by 
a  bad  mean  motion  estimate),  a  first-order-of-magnitude  estimate  of  the  change  in  the 
mean  motion  was  made.  The  slope  of  the  VMAGT  data  gives  an  approximation  of  the 
rate  of  change  of  the  in-track  errors  in  km/day.  The  s.emi-major  axis,  Uo,  is  calculated  as 
shown  in  Equation  3.14.  If  a  circular  orbit  is  assumed,  the  angular  rate  of  change  can  be 
approximated  from  the  the  rate  of  change  of  the  in-track  error  and  the  semi-major  axis. 

All  six  satellites  have  eccentricities  less  than  0.06,  so  the  circular  orbit  assumption 
seems  valid.  The  slopes  were  determined  using  the  the  longest  LUPI  (8)  VMAGT  graphs 
in  order  to  get  the  best  estimate  of  the  slope.  The  largest  OPD  (8)  was  also  used.  This 
gave  the  smallest  slope  of  any  LUPI/OPD  combination  for  each  satellite,  and  therefore 
the  smallest  angular  rate  of  change.  In  the  case  of  the  Class  4-1-1  and  4-1-2  orbits,  the 
LUPI  2,  OPD  8  data  was  used.  The  data  for  this  analysis  is  summarized  in  Table  6.2. 


Table  6.2.  First  Order  In-Track  Error  Analysis. 


Class 

(.Catalog 

Number 

Semi-Major 

Axis 

Eccentricity 

In-Track 

Hate 

Angular 

Rate 

km 

km/day 

izsKosm 

3  I  1 

01996 

7277 

0.05379 

12.5 

rntpauami 

3  1  2 

725.') 

0.02245 

1.2 

■WglTiBli 

3-1  3 

19643 

7231 

0.00670 

2.5 

QQQIBII 

3  1  4 

17429 

7242 

2.5 

wrornMi 

mn 

2033.*; 

6768 

0.00175 

75 

mooujiii 

•1  1  2 

I.VW 

6774 

0.00231 

nnuBii 

In  ail  of  these  <  a.ses,  by  first-order  approximation,  the  angular  rate  of  change  of  the 
VM.AG'I'  error  is  at  lea.st  10  tinu's  larger  than  the  mean  motion  wiriance  limit  (>/To^  = 
.1.0  X  lO"*)  used  in  the  model.  'I'his  wa.<  a  strong  indication  that  the  mean  motion  variance 
needed  to  be  limited  in  some  way. 

Once  a  mean  motion  variance  limit.  .  has  been  calculated  and  a  determination 

"I*** 

made  that  the  limit  is  indejnl  neetletl  ( ^ ),  there  are  two  methods  of  implementing 
it  within  the  l)(‘  program. 


I.  Diagonal  adjustment.  .Apply  the  limit  to  only  the  mean  motion  variance  term  in  the 
covariance  matrix.  This  adjustetl  covariance  matrix.  /’,.  i^  '■hc»wn  in  Kc|uation  6.I. 
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Ob> 

OB'Oi 

Ob*Oci 

OB-Ot 

OB'Ou 

OB'Om 

OB' On 

OiffB* 

OiO(i 

OiOt 

OiOu) 

OiOM 

OiO„ 

OnOB‘ 

0{lOi 

OciOe 

onOu 

OnOM 

OnO„ 

OtOS' 

OtOi 

OeOa 

OtOul 

OeOM 

OtOn 

OuOb* 

OuOi 

OuOa 

OtjOf 

OuOm 

OuOn 

OmOb‘ 

OhtOi 

ouOa 

OmOc 

OmOui 

OuOn 

OnOB" 

OnOi 

OnOfl 

OnOt 

OnOu 

OnOM 

2.  Full  adjustment.  In  addition  to  tjie  diagonal  term,  apply  the  limit  to  the  12 
other  covariance  elements  (i.e.,  the  elements  in  the  bottom  row  and  right  column)  of 
the  covariance  matrix  impacted  by  a^.  This  would  be  implemented  by  first  creating 
an  adjustment  matrix  (/a)  as  shown  below: 


I  0  0  0  0  0. 
0  1  0  0  0  0 
0  0  I  0  0  0 
0  0  0  1  0  0 
0  0  0  0  1  0 
0  0  0  0  0  1 
0  0  0  0  0  0 


0 

0 

0 

0 

0 

0 

On 


(6.2) 


The  adjusted  fo\T»riancr  matrix  is  formed  by  pre- multi  plying  and  post -multiplying 
the  covariance  matrix  by  the  adjustment  matrix  as  shown  in  hUiuation  6.3. 


The  adjusted  covariance  matrix  then  takes  the  form  shown  in  f>|uation  6.-i. 
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Wc  attempted  to  determine  the  mean  motion  variance  limit,  required  by  the 
DC  using  our  worst  behaved  class,  3  1- 1  (Catalog  Number  01996),  as  a  test  subject  (refer¬ 
ence  Appendix  H.7).  A  single  random  observation  file  was  used  to  limit  the  processing  time 
rcquirctl  by  the  DC.  Additionally,  for  the  purpo.sed  of  this  “tuning,”  we  felt  that  difference 
between  different  random  observation  files  would  not  change  the  order-of- magnitude  limit 
we  were  searching  for. 

To  tune  the  DC.  we  usi'd  the  sum  of  all  VMACJTs  after  Day  24  VMA(IT), 

a.s  a  pv^rformance  measure.  We  seUKrled  day  24  because  it  was  th‘*  ilefault  point  at  whicii 
steady-state  was  declared,  losing  both  the  diagonal  and  full  adjustment  methods  discussed 
above,  we  ran  the  DC  varying  starting  at  0,1.  For  each  successive  run  we  used  a  ^ 
one  order  of  magnitude  lower.  This  prare,ss  continued  until  the  !)('  did  not  need  to  use  the 
limit  (i.e..  ^  <  a^),  'I'he  output  from  this  process  for  each  adju.stment  method  was  a 

listing  of  the  incremental  and  the  corresponding  V.\lA(fT.  For  each  method, 
we  chivse  as  the  limit  the  corresponding  to  the  lowest  V.M.AtJT- 


These  limits  were  then  applied  and  the  Dt*  motlel  wa.s  run  on  all  16  |,l'ri/OI*D 
combinations  for  this  cla.vs.  However,  the  VM/VtiT  resull.s  for  both  adjustment  mcthod.s 
showed  little  change.  This  led  us  to  believe  that  the  Dt'  had  to  be  tuned  for  all  elenients, 
hot  just  mean  motion. 


.\gain.  Using  the  same  class,  3  1  1.  as  a  lest  subject,  we  determined  variance  and 
covariance  limits  for  each  element  for  both  adjustment  methods  dUcussed  abow.  Starting 
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with  the  element  with  the  smallest  variance,  the  variance  limit  for  that  element  was  cal¬ 
culated  using  the  same  method  used  to  determine  described  above.  That  limit  was 
then  implemented  (i.e.,  used  in  the  DC  if  and  the  same  process  was  used  on 

the  element  with  the  next  smallest  variance.  This  continued  until  the  variance  iimits  for 
all  elements  was  determined. 

U.sing  these  7  iimits  as  an  initial  guess,  the  DC  model  was  run,  again  using  only 
one  random  observation  file.  The  variance  limit  for  each  element  was  again  varied  while 
holding  all  other  iimits  constant.  The  output  from  this  process  was  a  listing  of  the  incre¬ 
mented  and  the  corresponding  clement.  From  this  output, 

we  determined  the  variance  limit  with  the  largest  reduction  in  VMAGT  between  the 
limit  used  and  an  adjacent  iimit.  The  element  variance  limit  was  ciianged  to  the  adjacent 
limit  and  the  process  repeated  until  the  element  variance  limits  resulting  in  the  minimum 

VMAGT  are  determined.  A  basic  assumption  is  that  the  local  minimum  determined 
by  these  variance  limits  i.s  close  to  the  global  minimum.  This  process  was  performed  for 
both  adjustment  methods. 

Using  these  limits,  the  DC  inorlel  was  run  on  alt  IG  LUPi/OPD  combinations  for 
Class  3  1  I  (NORAI)  Catalog  Number  01996).  Both  methods  producer!  results  much 
better  than  the  ba.scline  data  .st>eu  in  Appendix  H.7.  However,  the  full  adjustment  method 
did  not  provide  results  as  accurate  as  the  diagonal  adjustment  method.  Reference  Table 
6..1  fur  the  element  covariances  luseti  in  the  diagonal  adjustment  and  .'\ppendi.x  1.2  for 
the  complete  confidence  interval  analysis.  ANOV.A  analy.si.s  and  VM.AGT  graphs  for  the 
diagonal  adjustment.  Of  special  note  i.s  the  statistical  difference  in  results  ba.sed  on  l.l'Pl. 
Prior  to  tuning,  there  wa.^  no  indicated  difference  in  r«'sult.s.  However,  the  tuning  effort 
highlighted  this  difference. 

To  demonstrate  the  ability  of  this  methcMl  to  “tune'*  other  orbital  rlas.M-s,  the  same 
methodologv*  was  applied  to  Cla-ss  |  3  2  ((’alalog  Number  M199).  This  class  was  chosen 
for  three  reasons.  First,  in  the  initial  ahaly.sis,  this  class  did  not  exhibit  characteristics 
indicating  the  covariance  had  become  ttni  exact.  Second,  we  wanletl  to  see  if  “tuning” 
could  injpTove  previously  “gooir  results.  Third,  this  class  is  different  from  ('lass  3  1  1  in 
all  thr‘v  cla.ssifiraiion  categories  (i.e..  mean  motion,  ercentricily.  and  inclination). 
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Table  6.3.  Element  Variance  Limits  Used  for  DC  Tuning  of  Class  3-1-1. 


Element  Variance 

Limit  Imposed  | 

O 

1 

TWITTIf 

■narfi 

None 

None 

None 

Tuning  for  this  class  also  improved  overall  VMAGT  results.  Reference  Table  6.4 
for  the  element  variance  limits  used  in  the  diagonal  adjustment.  Appendix  I.l  contains 
the  complete  confidence  interval  analysis,  ANOVA  analysis  and  VMAGT  graphs  for  the 
diagonal  adjuslinent.  ANOVA  still  indicates  a  diiference  in  results  based  on  LUPI,  OPD, 
and  the  interaction  of  LUPI  and  OPD. 


Table  6.4.  Element  Variance  Limits  Used  for  DC  Tuning  of  Class  I -'3-2. 


Element  Variance 

ol. 

mMEmm 

■BMSliflil 

<•1 

bqisihi 

jumniiiiiuQ^jy^nipiiniii  j 

■  crJ 

%h 

IO-“  rad"  1 

tmamnmMW 

HJ  Diffrrrnlial  ('orrrrtian  Modrl  Prrjortnann 

.iVs  itlu.slratcd  by  nnwt  of  the  last-pass  VMAGT  graphs  in  .Appendixes  H  and  I.  the 
differmtiat  corrector  typically  gave  good  performance.  Some  of  the  tast-pas-s  VMAtJT 
graph.s  had  resul’s  indicating  that  further  information  could  be  obtained  from  the  data, 
such  as  the  (leriwlic  results  and  occasional  .spikes  in  the  data.  However,  in  general,  the 
randondy-distributefl.  steady -stale  nature  of  the  data  indicated  gowl  performance.  Typ¬ 
ically.  the  IK*  retpiired  between  four  and  six  iterations  to  converge  for  each  batch  of 
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observations,  and  only  occasionally  did  not  converge  within  the  50  iteration  limit  placed 
in  the  algorithm. 

The  actual  run  time  of  the  program  fc:  each  satellite  investigate*!  was  quite  long. 
Running  on  25  MHz,  386  FC,  a  single  60-day  run  of  the  differential  corrector,  using  one 
random  observation  hie,  an  observation  rate  of  two  obs/day,  and  a  single  LUPI  (between  8 
and  30  corrections  depending  on  LUPI)  could  be  performed  in  approximately  two  minutes. 
However,  to  perform  ail  16  liUPI/OPI)  combinations  using  10  random  observation  files 
(over  2500  corrections)  took  at  least  two  and  a  half  hours. 

In  addition,  no  singularity  problems  were  encountered  with  the  Keplerian  elements 
at  low  eccentricities  and  low  inclinations.  An  eccentricity  and  inclination  of  0.0012  and 
4.99*  respectively  were  tested.  These  were  Inith  for  Class  1-1-1.  ’ 
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VII.  CONCLUSIONS  AND  RECOMMENDATIONS 


7.  t  Conchisions 

Based  on  the  99  i)ercent  confidence  level  and  ANOVA  analysis  of  the  simulation 
runs,  we  believe  our  model  can  be  used  to  show  the  general  differences  in  the  accuracy 
of  an  orbital  clement  set  based  on  varying  observation  rates  and  correction  intervals.  In 
all  of  our  test  cases,  we  olwerved  no  results  which  indicate  increasing  bUIM  or  decreasing 
OIM)  would  improve  accuracy.  Our  results  for  mean  motion  Cla.sses  Two,  Three,  and  Four 
showed  either  that  accuracy  improved  as  a  result  of  increasing  OIM)  or  decreasing  LUIM, 
or  that  no  determination  could  be  made  due  to  large  overlapping  confidence  intervals. 

Mean  motion  Class  One  (deep  space  satellites)  results  were  not  that  defiikitive.  They 
showed  that  accuracy  increased  as  a  result  of  increasing  OPI)  as  c.xpccted,  but  in  some 
cases,  the  M’lM  effects  may  have  been  opposite  what  we  exjmicd.  While  ihe  large  over¬ 
lapping  confidence  intervals  make  determinations  difficult,  the  results  of  Class  1  3  2  after 
tuning  (Reference  Appendix  l.l)  could  be  interpreted  as  the  VMAdTs  for  OIM)/LUPI  S/» 
being  better  than  those  for  OPD/LUIM  8/2.  This  may  be  relat«yl  to  the  MMM  dependent 
forgetting  factor  used  in  our  model. 

We  believe  the  problem  of  the  large  omlapping  confidence  intervals  is  due  to  insuffi¬ 
cient  random  observation  runs  for  sjrecific  satellites.  The  need  for  more  rando.m  observation 
runs  showed  up  in  the  o\-eiiap  of  the  9.'i  percent  roafidenre  interval  of  the  39  percent  confi¬ 
dence  level.  This  os'ertap  made  a  determination  of  I.IMM/OIM)  effects  on  results  impossible 
for  seme  satellites.  We  beliew  t  he  addition  of  extra  runs  will  narrow  ihv  confidence  interval 
and  allow  better  determination  of  results. 

As  a  .separate  problem  the  accuracy  of  the  reported  VM.AtiT  data  indicates  a  need 
for  the  differential  corrector  (|)f‘)  to  He  “toned’'  prior  to  use.  On  se\‘rral  of  the  output 
runs,  the  ploftcfi  firsf.pass  VMAdi  values  demonstrated  a  significant  positive  “slope" 
rhararteristic.  .-Apparently,  this  indicated  the  covariance  had  become  too  exact  ( verv  shtall). 
Therefore,  the  differenfial  coireclor  would  not  allow  the  elements  to  be  corrected.  This 
problem  was  first  identified  early  in  test  runs  ronduried  to  debug  the  I)C  rode. 
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As  indicated  in  Chapter  IV,  Section  4.4.1,  we  examined  the  impact  of  the  covariance 
matrix  on  the  correction  process.  To  start  the  Bayes  process,  it  was  necessary  to  make  an 
initial  guess  for  the  values  in  the  matrix.  The  value  of  10'^  was  chosen  based  on  an  analysis 
of  test  data.  As.  further  test  runs  were  conducted,  we  noticed  the  “slope”  characteristic  in 
all  of  the  first-pass  VMAGT  plots.  Preliminary  analysis  of  the  output  indicated  this  may 
be  the  result  of  the  DC  “locking  on”  to  a  value  of  mean  motion.  Once  locked  on,  the  DC 
refused  to  correct  mean  motion  and  attempted  to  change  other  elements  to  make  up  the 
difference,  thus  creating  a  bad  estimate. 

As  discussed  in  Chapter  VI,  we  incorporated  a  constant  mean  motion  variance- 
limiting  factor  into  the  code  for  the  DC.  The  purpose  of  this  factor  was  to  prevent  the  D(! 
from  locking  onto  a  specific  value  of  mean  motion  and  then  refusing  to  correct  it  further. 
This  procedure  resulted  in  good  first-pass  corrections  for  several  satellites,  but  not  for  all 
satellites.  Further  testing  and  analysis  indicated  this  limiting  factor  is  required  on  more 
than  just  the  mean  motion  variance.  Additionally,  the  element  variance  limits  appear  to 
be  satellite/orbit  dependent. 

In  our  research,  we  manually  tuned,  or  determined  the  variance  limits  necessary, 
for  the  two  test  cases  analyzed.  Based  on  the  methodology  describwl  in  S(H'tion  (i.2,  an 
automated  process  for  performing  this  tuning  for  all  orbit  classes  r.oiil«l  be  d('velupe<l.  With 
automated  tuning,  we  Iwlievo  our  model  couhl  bettor  determimi  the  effects  of  1  BPl  and 
OPl)  on  orbital  element  .set  accuracy. 

l.t  I'olUm-On  Ifrsearch  Herommaidationji 

'I’lio  most  obvious  follow-on  research  recommejidation  is  lue  cuntinuation  of  the 
l>ioJ('r.t,  .!.■!  re{|uesled  by  our  sponsors,  the  1st  Comtmiml  and  ('ontrol  S(,u.idron  { K'.ACSJ. 
into  the  (iual  develupmeiil  of  a  cost  benefit  a.s.se.ssmeiit  jiiodel.  Tlie  r«*sulls  of  this  re.M»arth 
are  iiiteneled  to  be  used  as  the  basis  fur  the  development  «>f  a  qiiautitatite  cost /benefit 
model  to  a.s.se,ss  the  effects  of  alterations  Itf  the  .SSN  on  v>rl)il  prinlirtitm  .iccur.ncies.  This 
model,  as  envisioned  by  personnel  at  the  ICAt'.S,  wonhl  be  used  us  a  derision  niuking  Uk>1. 
The  purpose  of  this  tool  would  be  i{»  compare  tin  gain  or  h»s  of  urhil  prisliction  accuracies 
•.  ith  th('  cost  s  or  savings  <i,s.sociated  wit  h  the  upgrade  of  a  sptu-iiir  sensor  site,  t  he  closing  bf 
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a  specific  sensor  site,  or  the  changing  of  sensor  taskings.  This  decision-making  tool  would 
allow  USSFACECOM  to  make  better  decisions  (in  terms  of  maintaining  OE  set  accuracy) 
in  regards  to  the  SSN. 

However,  before  attempting  to  incorporate  our  model  into  a  larger  application,  an 
automated  method  for  tuning  the  differential  corrector  is  required.  Coupled  with  this  cffott 
is  the  validation  of  the  satellite  classification  method  we  used  to  select  a  representative 
sample  from  the  satellite  population.  Ra-sed  on  the  results  of  the  classification  method 
validation,  a  determination  of  whether  the  same,  variance  limits  can  be  applied  to  all 
satellites  within  a  class,  or  must  be  determined  independently  for  each  satellite,  can  be 
made. 

Other  areas  of  recommended  further  research  are: 

•  Re-codiiig  of  the  model  programs  for  computational  efficiency  as  oppo.sed  to  the 
easily  interpn^table  format  us^d. 

•  E.xami nation  of  the  effotis  of  “timing”  the  forgetting  factor  used  in  the  differential 
forrwtion  process. 

•  Development  of  an  interface  prore.ss  to  ea-M?  the  determinatioii  of  the  steady-state 
values  for  a  representative  set  of  satellites. 

•  l>evet<»pment  of  an  interface  prcxess  to  allow  e.xeculi«ii  of  these  iikkIcIs  with  various 
clianges  to  SS.N  .sen.sor  rharartenstir.s  (location  and  accuracies)  to  allow  cuinparisun 
to  “ha.se!ine”  run  and.  therefore,  determine  affects  of  alterations  to  .S.S.N  on  element 
acruracy. 

•  Kxaininaiion  of  the  effects  of  “age  de. weighting”  the  actual  oh.M*rvations  used  in  tin* 
.seipieittial  different lai  correction  prfKTss. 

•  (■'■«*atic>n  of  a  task  srhetfuling  nuHlel.  The  resutts  of  this  research  could  also  Ike  used 
as  llie  ba.sis  for  the  development  of  a  scheduling  .umlel  to  optimalU  srhe<lule  S.SN 
sen.sors  to  gath'T  only  the  observational  data  re*juire<l  to  maintain  the  ib'siretl  orbit 
preiliriion  acrurarie.s.  I  hi.s  would  en.sure  the  SSt‘  computers  would  process  i»nly  the 
minimum  retpiireii  data  to  maintain  the  OK  mU  arrur.'.cy. 
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PURPOSE 

The  enclosed  Pascal  source  code  iapleaents  the  NORAD  SGP4/SDP4  orbital  aodels 
for  use  vith  the  standard  tvo-line  orbital  element  sots  to  determine  earth- 
centered  inertial  (ECI)  and  topocentric  coordinates  of  earth-orbiting  objects 
This  code  implements  both  the  near-earth  and  deep-snace  portions  of  the  NORAD 
SGP4  orbital  model.  These  units  are  designed  to  make  the  development  of 
programs  based  on  the  NORAD  orbital  models  straight forward  and  standardized. 


INTRODUCTION 

In  order  to  properly  determine  the  position  of  any  earth-orbiting  object  using 
the  standard  NORAD  tvo-line  element  sets,  it  is  necessary  that  the  proper 
orbital  model  be  used.  Since  the  observations  taken  by  NORAD  for  each  earth- 
orbiting  object  are  reduced  to  orbital  elements  using  the  S0P4  (Simplified 
General  Perturbations)  mode} ,  the  SGP4  model  *must*  be  used  to  get  the  most 
accurate  determination  possible  of  an  object’s  position  and  velocity.  The 
primary  reason  for  this  requirement  is  that  each  orbital  model  handles 
perturbations  (due  to  atmospheric  drag,  solar  and  lunar  gravitational  effects, 
irregularities  of  the  earth’s  gravitational  field,  etc.)  in  a  different 
manner.  The  NORAD  tvo-line  element  sets  incorporate  these  perturbations  using 
the  SGP4  orbital  model  and  that  model  is  required  to  accurately  reconstruct 
:he  magnitudes  of  these  effects. 

The  SQP4  orbital  model  takes  into  account  perturbations  due  to  atmospheric 
drag  (based  on  a  static,  non-rotating,  spherically-symmetric  atmosphere  whose 
density  can  be  described  by  a  poser  lav),  fourth-order  zonal  geopotential 
harmonics  (J2,  J3.  and  J4) ,  spin-orbit  resonance  effects  for  synchronous  and 
semi-synchronous  orbits,  and  solar  and  lunar  gravitational  effects  to  first 
order.  The  two  portions  of  the  SGP4  model  are  S0P4  (for  objects  in  orbits 
with  periods  less  than  225  minutes)  and  S0P4  (for  objects  in  orbits  greater 
than  or  equal  to  22b  minutes).  The  reason  for  breaking  tho  model  into  two 
parts  is  that  for  low-earth  orbits  the  effects  of  spin-orbit  resonance  and 
lunar  and  solar  gravity  are  not  significant.  This  result  allows  the 
development  of  an  analytical  model  (SGP4)  for  determining  an  object's  position 
and  velocity,  thereby  reducing  the  computational  burden.  For  deep-space 
orbits,  a  semi-analytical  model  (S0P4)  is  required. 

Models  which  implement  the  older  SOP  model  should  bo  accurate  for  low-earth 
orbits  but  really  won’t  be  adequate  (or  deep-space  objects,  particularly  those 
in  resonance  with  the  geopotential. 


COMPUTER  IMPLEMENTATION 


The  enclosed  Pascal  source  code  was  developed  in  Turbo  Pascal  Version  5.0  to 
fully  implement  the  NORAD  SGP4  orbital  model.  There  are  now  twelve  units 
prov idod : 


S0P4S0P4 

S0P.08S 

MINMAX 

S0P,MAT« 

SGP.TIME 

SGP.INIT 

JiGP.INTF 

SGP.CONV 


Full  implementation  of  NORAD  SOP4/SOP4  models 

Observer -dependent  routines  for  calculating  topocentric 

information 

Minimum/maiimum  functions 

Various  trigonometric  and  mathematical  routines 
Time-based  routines  for  converting  among  time  systems 
Code  and  variablns  needed  to  initialise  SGP4.'»DP4 
Interface  between  SCP4SDP4  and  SGP.CONV  (and  some  special- 
purpose  programs) 

Routines  (or  convertitig  two-line  data  and  5GP4  slate  vectors 


SOP.IN  Routines  to  slaplify  input  of  data  (aith  error  checking) 

SOP.OUT  Routines  for  outputting  program  results  in  standard  formats 
SOLAR  Routine:^  for  calculating  the  position  of  the  sun  and  whether 

a  satellite  is  in  earth  umbral  eclipse 
SUPPORT  General  support  routines  for  machine-dependent  features 

These  units  are  structured  t>  medce  development  of  software  as  simple  as 
possible  and  to  reduce  the  time  needed  for  validating  results.  A  certain 
amount  of  the  development  is  also  tailored  toward  the  development  of  a  similar 
set  of  units  in  C,  which  is  mow  underway.  A  more  complete  description  of 
these  Pascal  units  is  inr.laded  in  SGP4-PLB.ITF. 

Of  the  units  provided,  the  ^ost  complex  is  the  implementation  of  the  HORAD 
orbital  models  (SGP4SDP4).  The  development  of  this  unit  was  done  to  follow  as 
closely  as  possible  the  imple’^entation  contained  in  Spacetrack  Report  Number 
3,  "Models  for  Propagation  i  f ORAD  Element  Sets,"  (a  copy  of  the  LaTeX 
documentation  and  complete  FLRVRAN  source  code  is  available  on  this  system). 

No  attempt  has  been  made  at  this  point  to  optimize  the  code  to  run  faster.  A 
future  release  sill  provide  -  £ore  streamlined  implementation.  To  ensure  the 
validity  of  these  imits,  no  chauges  should  be  made  to  the  units  themselves 
which  have  been  extensively  tested  etnd  validated.  LaTeX  documentation  to 
support  this  validation  should  oe  available  on  this  system  soon  (look  for 
SGP4-VAL.TEX) . 

A  test  program  (SGP4TEST.PAS)  is  included  to  implement  the  sample  cases 
included  in  the  Spacetrack  Report  Number  3  documentation.  It  should  provide  a 
reasonably  good  idea  of  how  to  use  these  Turbo  Pascal  units.  To  determine  an 
object’s  position  ^uld  velocity,  the  object’s  two-line  orbital  element  set  is 
read  into  the  array  {sat.dat:./  [Note:  Variable  names  will  be  enclosed  within 
braces  to  set  then  apart  in  this  document] .  A  call  is  then  made  to  the 
procedure  Convert.Satellite.Data  passing  the  satellite’s  index  (satnumber). 

In  the  call  to  this  procedure,  a  determination  is  automatically  made  as  to 
whether  the  object  is  in  a  near-e?xth  or  deep-space  orbit;  the  result  is 
returned  in  {ideep}.  If  (ideepi  xs  0.  then  the  object  is  in  a  near-earth 
orbit;  if  {ideep}  is  1,  it  is  in  a  deep-space  orbit.  A  call  is  then  made  to 
either  SGP4  or  SDP4  depending  on  the  value  of  {ideep}. 

The  time  passed  in  this  call,  {tsince},  represents  the  time  since  (before  or 
after)  the  satellite  epoch  in  the  two-line  element  set.  The  four-dimensional 
vectors  {pos}  and  {vel}  are  returned  containing  the  x,  y,  and  z  ECI 
coordinates  (referenced  to  the  true  equator  and  mean  equinox  of  date)  and 
vector  magnitude  of  the  object’s  position  and  velocity,  respectively,  at  the 
specified  time.  Units  are  earth  radii  and  t^x-th  radii  per  minute, 
respectively;  appropriate  conversions  must  be  made  to  get  the  proper  units  (as 
demonstrated  in  the  test  program  using  Convert.Sat. State) .  The  variable 
{iflag}  is  used  internally  for  keeping  track  of  initialization  conditions  for 
the  deep-space  portion  of  the  model. 

Running  this  test  program  should  provide  results  quite  close  to  those  provided 
in  the  Spacetrack  keport  Humber  3  documentation.  The  minor  differences  that 
do  occur  are  due  to  two  primary  reasons.  The  first  is  the  result  of 
differences  in  the  internal  precision  of  the  FORTRAN  compiler  used  to  generate 
the  report  and  that  of  the  Turbo  Pascal  compiler.  The  second  is  duo  to  the 
choice  to  implement  a  consistent  numerical  precision  in  the  Turbo  Pascal  code. 
Examination  of  the  FORTRAN  source  code  will  reveal  inconsistent  use  of  single 
and  double-precision  variables  and  trigononstric  functions:  the  Turbo  Pascal 
rode  uses  double-precision  variables  and  functions  throughout. 

Because  it  is  not  very  straightforward  to  perform  calls  to  the  SGP4  units 
bused  on  the  time  since  each  satellite's  element  set  epoch,  a  procedure  is 
also  provided  which  interfaces  between  a  standard  time  systee  and  the  S0P4  and 
SDP4  calls.  This  procedure.  SOP.  requires  only  that  the  user  pass  the  Julian 
Date  of  interest;  the  procedure  iuHan.Dalc_ol_Epcch  converts  from  a  dale  in 
the  format  used  in  the  two-line  element  set  to  a  Julian  Date.  The  SGP  call 
also  takes  c.are  of  making  the  determination  of  whether  the  object  is  in  a 
near-earth  or  deep-space  orbit  and  calls  the  appropriate  model.  The  SQP^TIME 
unit  contains  these  procedures  as  well  as  routines  to  convert  Julian  Bales  to 
more  recognizable  time  formats. 

The  main  advantage  of  using  the  Julian  Dale  in  SOP  is  that  there  is  no  problem 
calculating  the  time  interval  between  the  time  of  interest  and  the  satellite 
element  set  epoch,  regardless  of  whether  this  interval  spans  the  beginning  of 
a  year.  There  is  elso  a  function  to  convert  Julian  Dales  to  calendar  dates 
(Calendar.Date)  of  the  form  “1992  Jan  30.“  Epoch.Time  transforms  the  Julian 


Dates  to  the  fora  used  in  the  two-line  element  sets. 

The  test  prolan  S0P4TST2.PAS  gives  an  ezaaple  iapleaentation  of  this 
approach.  It  is  designed  to  produce  the  same  results  as  S0P4TEST.PAS.  The 
■ain  difference  is  that  the  Julian  Date  is  calculated  to  be  the  tine  of  the 
epoch  for  each  elenent  set  imd  then  the  offset  (in  ninutes)  is  added.  Be  sure 
to  note  that  tines  outside  the  units  are  nos  all  in  edays*  not  in  ninutes  (as 
they  are  inside  the  units) . 


COHCLUSIOH 

These  Turbo  Pascal  units  should  sake  it  easy  to  inplenent  the  official  MORAD 
orbital  models  in  developing  any  nunber  of  applications.  It  is  nos  very 
straightforsard  to  select  input  files  (of  satellite  and  observer  data)  and 
tine  conditions  (with  full  error  checking)  emd  output  data  ranging  from 
spacecraft  ECI  position  and  velocity  to  spacecraft  ^ound  tracks  (latitude, 
longitude,  and  altitude)  to  look  angles  (azinuth,  elevation,  range,  and  range 
rate)  to  right  ascension  and  declination.  Each  of  these  outputs  uses  the  VGS 
'72  geoid  (nonspherical)  and  takes  into  account  atmospheric  refraction,  where 
appropriate.  These  results  can  be  easily  output  as  text  or  incorporated  into 
advanced  graphical  applications. 

For  a  full-blosn  exaMle  of  hos  to  inplenent  these  functions,  look  for  the 
application  TrakStar/^P4,  also  available  on  this  system.  It  alloss  output 
for  up  to  250  satellites  (or  element  sets  for  a  single  satellite)  in  the  form 
of  spacecraft  ECI  position  and  velocity,  spacecraft  ground  tracks  (latitude, 
longitude,  and  altitude),  look  angles  (azimuth,  elevation,  range,  and  range 
rate),  and  right  ascension  and  declination.  A  separate  data  file  is  created 
for  each  object/elenent  set  —  a  great  tool  for  all  sorts  of  analyses. 

Future  releases  of  these  units  sill  include  routines  to  efficiently  determine 
crossing  phenomena  (e.g.,  satellite  rise/set,  sun  rise/set,  and  satellite 
entry  into/exit  from  earth  eclipse)  and  local  optima  (e.g.,  closest  approach). 
And,  of  course,  the  existing  units  sill  be  converted  to  C  with  an  eye  tosard 
portability. 

In  a  continuing  effort  to  promote  standardization  of  orbital  calculations,  I 
will  endeavor  to  continue  to  improve  this  package  and  will  gratefully  accept 
user  feedback  or  contributions  to  this  effort. 

-  Dr  TS  Kelso 

Internet:  tkelsotafit.af.mil 
anonymous  ftp  at  urchive.afit.af.mil 
in  the  directory  pub/space 

SYSOP,  Celestial  BBS 
S13/427-0674  (modem) 

Operating  24  hours/day 
Ko  parity.  8  data  bits.  1  stop  bit 
300.  1200,  2400,  4300,  and  9600  bjM 
v.32/32bia.  ».42/42bis 
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IITRODUCTIOI 

Tha  folloaing  docnaant  is  intandad  to  proaida  coaplata  docnaantation  for  tha 
intarfaca  saction  of  tha  units  proaidad  in  this  packaga.  Each  nnit  vill  ba 
prasantad,  in  alphabatical  ordar,  and  tha  IITERFACE  saction  it  raprodncad, 
shooing  tha  azact  natura  of  aach  call.  Folloslng  this  infomation  sill  ba  a 
dascription  of  tha  intandad  nsa  of  aach  variabla  and  procadnra. 

a*  UIIT  mmx  —  VEH3IQI  1.02  aa**aaaaaaaa.aaaaaaaaaaaaaaaaaaaa.a..a^aaaaaa 

Function  IHin(argl  ,arg2  :  intagar)  :  intagar; 

Function  IHaxCargl ,arg2  :  intagar)  :  intagar; 

Function  RNinCargl ,arg2  ;  raal)  :  raal; 

Function  UlazCargl ,arg2  ;  raal)  :  raal; 

Function  OHinCargl ,arg2  ;  doubla)  :  doubla; 

Function  DHax(argl ,arg2  ;  doubla)  ;  doubla; 

Thata  functions  ara  usad  to  provida  intagar,  raal,  and  doubla  Bininua  and 
aaxiBUB  calculations  usad  in  tha  librarian. 


aa  OUT  S0P4SDP4  --  VBRSIOI  1.60 


Usat  Support, 

SOP.Init, 

SGP.Math,S0P.TUa; 


Procadura  SQP(tuaa  :  doubla; 

»ar  pos,*al  :  Yactor); 
Procadura  S0P4(ttinca  :  doubla; 

Yar  if lag  :  intagar; 
Yar  poa.Yal  :  Yactor); 
Procadura  S0P4(tsinca  :  doubla; 

Yar  iflag  :  intagar; 
Yar  poa,Yal  ;  Yactor); 


This  unit  containa  tha  Pascal  iBplaaantation  of  tha  S0P4  and  $DP4  orbital 
aodals.  T«o  aatheda  of  intarfacing  ara  auailabla.  Tha  first  aathod  is  to 
accasa  tha  indiridual  routinaa  axactly  at  daacrlbad  in  Projact  Spacatrack 
kaport  tuabar  3  (Procaduras  SQP4  and  SDP4) .  This  aathod  raquiraa  tha  usar  to 
caleulata  tha  tisM  (in  ainutaa)  sinca  aach  satallita  alaaaat  aat  apoch  and 
dataraina  tha  appropriata  aodal  to  usa.  Tha  Yariabla  (iflag)  is  usad  to  kaap 
track  of  initialization  status  and  is  sat  sithin  thasa  routiaas  and  sithin 
Conaart.Satailita.Data  (Unit  SCP.COIr).  This  aathod  is  alOf*  racoaatandad . 


Tha  aaeond  aathod  la  to  accasa  tha  orbital  aodals  ala  a  call  to  SCP.  Kara  tha 
usar  la  only  rauuirad  to  pass  a  tiaa  (lulian  Data)  for  tha  calculation  and  tha 
satallita  ECI  position  and  raloeity  ara  raturnad.  Dataraination  of  tha 
appropriata  orbital  nodal  is  transparant  to  tha  usar.  Tha  only  raquiraasnl  is 
that  a  call  to  Convart.$atallita,Data  ba  aada  aach  tiaa  a  naa  satallita  is 
salaetad  bafora  calling  SOP.  kouilnas  for  calculating  Julian  Dstas  ara 
ineludad  in  Unit  SdP.TlIlE. 


•a  (IklT  SCP.CQtV  "  VEXSIOD  t.OO  aaaaaaaaaaaaasaaaaaaaaaaaaaaaaaaaaasaaaaaaaaa 


Usas  SCP.IUth; 


Procadura  ConYart.$atalllta.Oata<arg  :  intagar); 
Procadura  Conaart. Sal. Slatafaar  pas, aal  :  aacior); 


Tha  first  procadura  is  usad  to  ailract  tha  data  in  a  giaan  tso-lina  alaaaat 
aat  to  tha  aarisblas  aipactad  by  UtlT  $viP4SDP4  Tha  data  struciuras 
ceniaiaiiig  tha  tae-liaa  alasant  sats  is  dascrlbad  in  UiiT  SGP.IIIT.  In 
addition,  a  dataminatien  as  to  shclhar  tha  naar-aarth  (SCP4)  or  daap-spaca 


(S0P4)  aodal  Should  ba  usad  if  Bads  within  this  unit, 
pasaad  balwaan  S0P4$0P4  and  SSP^OirV  uaing  tniT  l0P.~ 


Thasa  aarisblas  ara 
im  This  uett 


SdP.CDrV  uaing  DItT 
(SQP. ItTF)  should  SOT  ba  ineludad  in  tha  Bain  pragraa  unlass  absaiulaly 
nacasaary  la  aaoid  unlntantional  chsngas  to  thasa  critical  asriahlas.  Two 
additional  aariablas,  (catnr)  and  (alsat),  ara  proaidad  to  idantify  tha 
aatallita  ala«ant  eai  Ftnally,  tha  aarisbla  (apach)  ta  globally  aaailabla  to 
datamina  tha  apoch  of  tha  alanant  aat . 


Conaarl.Sat.Stala  is  usad  to  conaart  tha  natiwa  units  proaidad  by  S0P4/S0P4 
(position  in  oarth  radii,  salacity  in  oarlb  radii/ninuta)  to  standard  natric 


unit*  (kiloa«t«ra  and  kiloMtara/sac) . 

aa  UIIT  SOP.H  —  VEWIOI  2.00  aaaaaaaaaaaaaaaaa 

(aa  Tkia  unit  containa  autchina-apaclfic  coda  aa) 
Uaaa  SaP_Katli,SOP.Init, Support: 
conat 

data.tjpa  ;  byta  ■  3; 


»ar 

faat.foba  :  tart; 


Procodara  Salact.Tiaa(naaaa|[a  ;  atrlng; 

xpoa.ypoa  ;  byta; 
aar  dafanlt  :  tina.aat: 
pracialon  :  byta); 

Procadura  Salact.Tiaa.IntarraKaaaaaga  :  atrlng; 

xpoa.ypoa  ;  byta; 
aar  dafanlt  ;  tiaa.sat; 
pracialon  ;  byta); 

Function  Chack8aa.0ood(lina  ;  lina.data)  :  boolaan; 
Function  Qood.Elanantadinaa  :  tao.lina)  ;  boolaan; 
Procadura  Input_Satallita(indax  :  aord); 

Function  Input.Satallita.Dataifn  :  atring)  :  aord; 
Procadura  Salact_Satallltaa(titla  :  atring; 

x,y,a,h  :  byta; 
nuabar  :  aord); 

Procadura  Input.Obaaraariaar  gaodatic  :  aactor) : 


Thla  unit  ia  ona  of  tao  unita  ahich  contain  attchina-apacific  coda;  thia 
linitatiott  alll  probably  ba  ranoaad  in  tha  fntura,  noaing  all  aachina-apacif ic 
coda  to  UIIT  SUPPORT. 


Tha  constant  {data.typa}  ia  praaat  to  3  and  it  utad  to  apacify  tha  format  of 
tha  tao-lina  orbital  data  fila.  k  aalua  of  2  indicataa  that  tha  satallita 
data  filaa  contain  aonly*  tao-lina  data;  a  aalua  of  3  indicataa  that  aach  tao- 
lina  alaaant  aat  ia  pracadad  by  a  22-charactar  satallita  nana.  Thata  data  ara 
raad  into  data  structuraa  as  daacrlbad  in  UIIT  SOP.IIIT-  Tha  ralua  of 
(data.typa)  can  ba  changad  in  tha  main  program  and,  if  nacaaaary,  should  ba 
dona  vithin  tha  program  initialisation  block. 

Tha  aariablaa  (ftat)  and  (fobs)  ara  pradafinad  taxt  filaa  to  ba  aaaignad  to 
tha  satallita  and  obaaraar  filaa,  raapact Italy.  Routinaa  uaad  in  this  unit 
axpact  to  uaa  thata  fila  handlat. 

Tha  first  tao  procaduraa,  Salact.Tima  and  Salact.TiM.lntartal ,  ara  protidad 
to  maka  it  aaay  to  input  atart/atop  timaa  and  tima  Intartala  for  parforming 
calculations.  Each  procadura  sill  put  a  aindoa  on  tha  aeraan  aith  tha  titla 
apacifiad  by  (maaaaga)  at  tha  location  ((xpoa) ,{ypoa)) .  k  dafanlt  tima  aat  ia 
paaaad  to  iaitialiaa  tha  tima;  tha  atructura  of  this  varlabla  ia  aat  forth  la 
UIIT  SUPPORT.  Tha  variabla  (dafanlt)  may  ba  ialtlalizad  manually  or  by  a  call 
to  Gat.Curraat.Tima  (for  Salact.Tima)  or  Raro.Tima  (for  Salaet.Tima.lntartal) ; 
aach  of  lhaaa  procaduraa  la  also  in  UIIT  SUPPORT.  Tha  tar labia  (pracialon)  la 
utad  to  iadicata  tha  pracialon  of  tha  data  to  bo  aalaetad.  Praciaion  rangaa 
from  yaara  doan  to  hundradtha  of  a  aacond.  k  pracialon  of  7  indicataa  that 
all  tima  unita  ara  to  ba  input;  a  praciaion  of  S  uould  omit  inputting  aaconda 
and  hundradtha  of  aaconda.  Rll  taluaa  bayead  tha  apacifiad  praciaion  ara  aat 
to  Eoro.  ragardlaaa  of  any  oihar  uaar  action. 

Tha  nait  two  functions  ara  uaad  to  datarnina  whathar  a  gitan  twe-lina  alaaant 
aat  ia  “good"  --  at  laaat  in  tha  aaoao  that  it  paaaaa  tha  module-tO  chackaum 
on  ouch  Tina  and  that  all  tha  amabara  appaar  to  ba  la  tha  prepar  fialda.  k 
aii^la  call  panaiag  tha  two-lina  alamant  sat  (linaa)  to  Coed.ElaaMnta  raturna 
TRUE  if  tha  data  paaaaa  lhaaa  lasts.  Tha  function  Chackaum.Goed  can  ba  uaad 
to  tost  tha  modulo-iO  chackaum  for  a  aingla  lima  of  a  twe-lina  alamant  aat. 
Thaaa  functions  ara  not  uaad  aapliciily  during  alaSMnt  aat  input  aa  it  is 
aasumad  that  tha  uaar  has  alraady  dona  so  (all  data  that  t  post  haa  already 
boon  auhjactad  to  thaaa  taata)  tn  fact,  tha  program  PiSSUPOt,  which  ia 
availabla  on  this  Syatam  for  updating  filaa  of  two-lina  alamant  aata  from  a 
maafar  fila.  does  this  chocking  far  you  lowawar,  if  you  ara  unaura  of  tha 
■tuality  of  your  data,  it  ia  STtOICLT  RECOKREfOEO  that  you  davatep  your  own 
praprocaanor  using  thaaa  functions  to  tost  your  data 

Tha  procadura  Input. Satallita  is  uaad  to  raad  in  indlaidual  twa-llna  alamant 
sats  Tha  indaa  indicataa  its  plscamant  within  tha  data  array  This  call 
assumaa  that  (fast)  has  alraady  boon  ISStOlad  and  initialiaad  Typically, 
this  call  is  made  from  tha  function  Input.Satal 1 ita.Oats  which  laitializas 
(fsat)  and  raads  an  antira  file  into  mamary  from  tha  fila  (fa),  tha  output  of 
this  function  is  tha  numbar  of  satallitas  ia  (fn)  lowawar,  duo  to  memory 
limitations,  soma  files  will  ba  too  largo  to  read  into  awmory  In  lhaaa 
cases.  Input. Satallita  should  ba  used  to  saguantially  raad  and  process 
indiwidual  alamant  sats.  aacb  alamant  sat  could  ba  raad  into  (indas)*!  and 


proc«si«d  b«for«  proc««dlng. 

In  cuts  ahsTt  sll  the  orbitsl  dsts  can  bt  rtsd  into  ■anory  ud  {dsta_typa}B3, 
tha  procadnra  Salact.Satallitas  can  ba  uaad  to  tag  aatallitaa  for  calcnlations 
latar  in  tha  pionan  using  tha  array  {salactad}.  Initially,  no  satallltas  art 
salactad.  1  call  to  this  procadnra  sill  placa  a  sindos  on  tha  scrtan  sith  tha 
nppar-laft  comtr  at  ({x},{y})  and  having  a  sidth  <s}  ud  ■axiwm  haight  {h} 
(tha  haight  rangas  fron  1  to  tha  nininon  of  {h>  ud  tha  nnabar  of  satallitas) . 
i  {titla}  is  alto  pnt  on  tha  sindos.  Tha  final  paruatar  in  this  call  is  tha 
nnabar  of  satallitas  availabla.  Salaction  is  achiavad  by  aoving  sith  tha 
np/dou  cursor  hays  to  tha  appropriata  aat>>llitt  ud  toggling  sith  tha  spaca 
bar  (u  astarisk  narks  u  itaa  as  baing  salactad) ;  data  scrntls  in  the  sindos 
at  nacassary.  Toggling  advucaa  to  tha  nazt  itu  in  tha  list,  asking  it 
aasiar  to  quickly  nark  itans.  Tha  ’1’  kay  togglas  111  itasu  (nagatas  thair 
currant  status).  Ones  tha  datirad  itans  ara  salactad,  tha  [EITER]  kay 
coaplates  tha  procatt.  Hithin  tha  aain  progru,  itans  cu  ba  testad  for 
salaction  s.^rh  a  statanant  such  at;  if  salactad Cindax]  than  . . . 

Tha  final  procadnra  for  this  uit  is  Input.Obsarvar  ud  it  sorks  sonashat  lika 
Inpnt.Satallita  axcapt  that  tha  data  is  raad  into  a  (gaodatic)  four-vactor 
shara  {gaodatic} [1]  is  lorth  latitnda,  {gaodatic} [3]  is  But  longitnda  (that 
naut  that  Hast  longitudas  ara  nagativa) ,  ud  {gaodatic} {3}  is  altitnda  abova 
nau  saa  laval  (IRSL) .  Input  is  axpactad  fron  tha  fila  {fobs}  in  uits  of 
dagraat  ud  natara  but  is  ianadiataly  convartad  to  radius  ud  kilonatars  for 
usa  sithin  thasa  uits.  Bach  obsarvar  entry  in  {fobs}  consists  of  a  tingle 
line  bagiuing  sith  a  3S-chuactar  site  nua  (pusad  as  {obt.nua})  ;  it  is 
axpactad  that  this  nasM  has  a  thrae-charactar  short  nana  (or  nunbar),  tso 
spaces,  follosad  by  a  long  nua.  Tha  short  nua  it  uad  sithin  UIIT  SOP.OUT 
for  topocantric  output .  Tha  ranaining  three  nubars  on  this  lina  ara  f raa- 
fiald  fornat,  baginning  on  or  after  character  36. 

aa  OBIT  SOP.IIIT  —  VEkSIOl  1.10  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

const 

nu.sats  a  3S0; 


type 

lina.data  *  stringtesl; 

tso.lina  ■  uray  C1..3]  of  lina.data; 


visible 

epoch 

catnr.alsat 
obs.nana 
salactad 
sat. nua 
sat .data 

data.driva ,data_dir, 
sork.dyiva.sork.dlr 


;  boolau; 

:  double; 

;  string; 

;  strlngC35]; 

:  array  (1 .  .nax.sata}  of  boolau; 

:  array  (1 . .nax.sata]  of  striag{32]; 
:  uray  (1.. nu.sats]  of  tso.lina; 

;  atriag; 


Procedure  Progru_Iaitialisa(progran.nan«  :  string); 


This  unit  is  used  to  initialisa  noat  of  tha  data  structuras  apscifie  to  tha 
SCPd  fully  of  units.  Tha  coutwt  {nu.sats)  sots  the  llnlt  (inposad  by 
systu  nonary  coutraiats)  on  tha  nuinun  nnnbar  of  aatallitaa  available. 

This  eonstut  affects  tha  storage  allocation  for  two-line  olenant  seta  in 
tha  array  (sat. data] .  satalllte  aanes  in  tha  array  (aat.aana),  and  the  array 
of  selected  satellites  in  (selected},  lote  that  type  (two. line)  is  a  two- 
eleawnt  string  of  OH-cbaracter  lines 

The  first  variable  provided  is  a  booleu  variable  (visible)  which  is  set 
when  naking  calls  to  deternina  topoceatrlc  poaitioa;  if  the  satellite  is 
visible  to  the  observer,  (visible)  is  set  true,  otherwise  it  is  set  false. 
Checks  of  this  variable  naka  sense  only  in  this  context  Eventually,  this 
variable  will  also  be  used  in  deteminlng  other  vlsihillty  cudltlOM. 

The  nest  three  variables  pertsln  to  tbe  esrrent  two-line  elenent  set  (the  lut 
one  processed  through  Convert.Satellile.Date)  The  vorisbles  (catnr)  and 
(eiset)  are  read  fru  the  appropriate  field  of  Line  I  and  serve  ta  Identify 
the  data.  Tha  variable  (epoch)  narks  the  apock  tine  (in  iwo-lins  fornat)  of 
tkst  elenent  set . 


Th.  final  fob.  are  deternined  in  tke  procedure  Progru.tnitlaliae . 

They  are  used  to  opecify  the  location  of  data  filoa  ((feat)  and  (fobs)  files) 
and  output  files.  Having  aaparata  locations  far  thaae  two  groups  nakas 
davelopnant  ud  tasting  aasiar  (in  ay  opinion)  and  allows  fat  standard 
locations  to  facilitate  integration  witk  etkar  prograas  (it  deasn't  naka  asnss 
te  kava  esrioua  veraiena  of  two-lina  alesMot  set  files  scsttered  all  aver  yeUr 
kard  disk)  These  Values  are  specified  in  tke  Configuration  fila 
(progru.nasM)  .CTO  (if  it  exists;  if  not.  everything  defaults  te  tha  working 
disk  and  directory).  P>r  oxanpla.  in  the  progru  TklBSTkk.  there  would  ho  a 


fil*  TtlKSTiK.CFO  which  wight  look  like 
d: 

\d«t»\ 

%ork\ 

If  this  prograa  wsr*  locstsd  in  C'.\S0P4  and  th«  data  was  in  C:\S0P4\DiTl  and 
work  files  wars  to  go  to  C:\SOP4\HOkK,  the  confignration  fils  wight  look  like: 

\igp4\data\ 

\sgp4\work\ 

lots  that  sack  directory  ends  with  a  trailing  \  (and  should  haws  no  blanks). 

If  yon  wish  to  mn  from  the  default  driwe  (naefnl  when  nsing  rswowabls 
cartridges  and  wowing  between  systews),  yon  wight  change  the  abowe  to: 

\sgp4\data\ 

\sgp4\work\ 

To  specify  directories  which  are  below  the  working  directory,  you  could  also 
use: 

data\ 

sork\ 

The  call  to  Prograiu Initialize  will  read  {progTaa_nawe}.CFO  to  determine  this 
information  (if  it  ezists)  and  will  also  read  (prograa_naBe} . BDK  (if  it 
exists)  to  place  one  page  of  information  on  the  screen  to  identify  the 
prograa.  It  is  strongly  recoawended  that  these  parameters  be  used  in  your 
prograas  to  facilitate  traceability  and  portability. 

t  call  to  Prograa.End  is  strongly  recoamended  to  reset  the  terainax  after 
prograa  exeention.  (hirrently,  this  procedure  positions  the  cursor  to  the 
bottom  of  the  screen  tad  aakes  sure  it  is  on. 

•*  UIIT  SOP.im  —  VEkSIOl  l.oa  •♦•••4.*e«eeeee*e**». 

const 

as 

tothrd 
xkwper 
f 

«• 

JJ 
J3 
J4 
ekl 

£k4 

xj3 
<jo 

s 

eda 
dpinlt 
dpsec 
dpper 

war 

iflag.ideep  :  integer, 

xao . laodeo .omegao , eo . s incl . 

xno , lad t lo . xndddo . bet ar , 

jtt 11 an. epoch. the  deeble. 

Thin  unit  deflaea  the  conetaate  and  wariable*  ueed  internal  to  S5Pd$W4.  Iota 
that  thie  wersieh  stilt  uses  ‘tt  watees  (while  the  impact  ef  switchiag  to 
WdS  '84  is  esseaaed)  It  le  STHOtOtY  recoeiMnded  that  this  unit  fOT  be 
included  in  the  sain  program.  All  4eterminatiet«  using  these  constaaia  (such 
as  position  of  an  obserwer  on  the  earth's  surface  In  the  <£1  system)  should  be 
performed  through  the  appropriate  cell  Also,  note  that  (iflag)  and  (ideep) 
are  unawailabte  to  the  wain  program  under  this  recoesaendatien.  forcing  tho  use 
of  the  procedure  SUP  to  access  the  IQtAb  othital  aedeis 

••  UIIT  SCP.IlTI  *-  VCkSIUI  I  30  eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
type 

sector  ■  erray  (i  4)  of  douhlo. 
const 

twopi  •  1  •  pi. 

zero  sector  •  (0,0, 0.0). 

Funct ion  $igs(org  .  douhte)  shortint. 

Funclios  Cube(arg  .  double)  double. 


1: 

2/3; 

6378.135; 

1/J98.26; 

398600.8; 

1 . 08261 5SE-3; 
-2.S3681E-6; 

-1 .65597E-6; 
J3/2; 

-3eJ4/e; 

J3; 

se  ♦  t20/aki^r; 
se  *  73/xkwper; 
lE-6, 

1; 

2; 

3; 


(Earth  ociuatorial  radiua  -  kilomatars  (HGS  *72)) 
(Earth  flattening  (ICS  >72)} 

(Earth  grawitat tonal  constant  (UQS  '72)) 

(12  harmonic  (UGS  >72)) 

03  harmonic  (VCS  >72)) 

U4  harmonic  (ICS  >7a)> 


(Ooop-tpaco  initialization  codo) 
(Oaep-apace  secular  code) 
(deep-space  periodic  code) 


Ftmction  Po«*r(«rg,p«i  ;  doabl*)  :  donbl*; 

Function  R«di»ns(arg  :  dooblo)  ;  donblo; 

Function  D«gT«*a(irg  :  doublo)  ;  double; 

Function  TanCirg  ;  doublo)  :  doublo; 

Function  IrcSiniorg  :  doublo)  :  doublo; 

Function  ArcCooiarg  :  doublo)  ;  doublo; 

Function  Hodnlns(aigl,arg3  :  doublo)  :  doublo; 

Function  FnodSpiarg  ;  doublo)  :  doublo; 

Function  AcTan(sinx,coax  ;  doublo)  ;  doublo; 

Function  Dot(»l ,va  :  voctor)  :  doublo; 

Procoduro  Ragnitudoioar  v  :  ooctor) ; 

Procodnro  Crot*(Tt,T2  :  ooctor;  oar  »3  :  roctor); 

This  unit  first  dofinos  tho  tho  typo  {ooctor}  is  as  a  four-oloaont  array  (or 
four-Toctor)  consisting  (typically)  of  x,  y,  and  z  position  and  a  roctor 
nagnitudo.  Tbono  ooctors  aro  also  used  for  storing  othor  typos  of  Inforaatlon 
(as  sill  bo  soon  in  UIIT  SOP.OBS) .  loxt,  tho  constant  (tsopi)  is  dofinod  as 
appropriate  for  Turbo  Pascal  Version  6.0.  lots  that  earlier  sorsions  of  Turbo 
Pascal  sill  lOT  alios  constant  definitions  of  this  fon.  Tho  definition  of  a 
zero  sector  has  boon  added  for  this  roloaso. 


Tho  roaainlng  routines  aro  dofinod  bolos. 


Function  Sign(arg  :  double)  :  shortint; 

Output  is  tho  sign  (-1,  0,  ♦!)  of  (arg). 

Function  Cubo(arg  ;  double)  :  double; 

Output  is  (arg)  to  tho  third  poser. 

Function  Posor(arg,psr  :  double)  :  doublo; 

Output  it  (arg)  to  the  (psr)  poser.  This  is  a  aoro  gonoral-purposo 
function,  but  is  rostrictad  to  positive  values  of  (arg).  An  error 
Bostago  is  roportod  if  (arg)  violates  this  restriction. 

Function  Kadians(arg  :  double)  ;  doublo; 

Output  's  an  angle  in  radians  shore  (arg)  ass  input  in  degrees. 

Function  Dogroos(arg  ;  doublo)  :  doublo; 

Output  it  an  angle  is  degrees  shero  (arg)  sas  input  in  ladians. 

Function  Tan(arg  :  doublo)  :  double; 

Output  is  the  tangent  of  (arg) . 

Function  Arc$iB(arg  :  doublo)  :  double; 

Output  it  the  arcsine  of  (arg)  in  radians.  Values  .range  boivoon  -pi  and 
♦pi. 


Functian  ArcCos(arg  :  double)  :  double; 

Output  it  the  ;\rccosise  of  (arg)  in  radians-  Vslues  rangs  betssen  0  and 
Jepl. 

Function  Rodttlus(argl ,arg3  :  double)  :  double; 

Output  is  the  reneinder  sfter  (argt)  is  divided  by  {srg3} .  This  routine 
is  usefui  for  keeping  esgles  betseen  0  and  3*pi  (or  0  and  360  degrees) . 
Function  Flaod3p(srg  :  double)  :  double; 

This  function  is  e  specific  iBpleneBtstioa  of  Modulus  sbsro  (srg3}  e<)usls 
3epl.  Osed  etplicl  ly  sithin  SOPdSOPd. 

Fttncllan  AcTasisina.eosr  :  double)  :  double; 

Output  t*  the  erctsngest  of  (siBi)/(casx)  in  redians.  Used  esplicitly 
sithin  dCPdSOPd.  The  tdvsntsge  ef  this  function  over  ArcTan  is  that  it 
returns  the  correct  <tuadreAt  of  the  angle. 

Function  Oot(vt .v3  :  vector)  :  double; 

Output  is  the  vector  dot  product  ef  (vt)  end  (v}). 

Procedure  Rsgnitudeiver  v  ;  vector) . 

This  procedure  cslculetes  the  nagnitude  ef  vector  (v)  using  cotipenoats  i, 
3,  and  3,  storing  the  result  tn  coepouent  d. 

Procedure  Cross(vj ,v3  vector,  var  v3  :  vector); 

keiums  vector  (*3)  shich  is  the  vector  cross  product  of  (vl)  and  (s3). 


ee  tttiT  $6P.QS$  --  VCtStOd  i  .dO  eeeeeeeeeeeeaeeeeeeeoeeeeeoeeeoeeeeeeeeeeeeoHte 


Uses  «$P.Rslh: 

Procedure  Colcuiste.User.PosVeKvor  geodetic  vocter. 

tiae  dsuhle; 

ver  ebs.pos.ehs.vet  vector). 
Procedure  Calculete.tatLonAltfpoe  :  vector. 

tiae  .  deuhte: 
ver  geedstic  vector). 

Procedure  Calculate. UbeCpos.vol. geodetic  vector. 

tiae  double, 
ver  Ohs. set  vocter). 

Procedure  Catcuiate.UC*c(p»s. eel. geodetic  .  vector, 

tiae  double, 
ver  obe.set  vector). 


These  procedures  are  used  to  provide  eheerver-epaclfic  ceerdiaste 


trusforMAtions  of  tho  output  of  tho  lOSAO  orbital  modala. 

Procadur*  Calculata.Uaar.PosVal  paatas  tha  usar’a  gaodatic  poaition  and  tha 
tint  of  intaraat  and  ratuma  tha  ECI  poaition  and  ralocity  of  tha  obaaraar. 
Tha  format  of  {gaodatic}  ia  aa  azplainad  in  UIIT  SOP.II.  Tha  aalocity 
calculation  aaaniMa  tha  gaodatic  poaition  ia  atationar;  ralatiaa  to  tha 
aarth’a  aurfaca.  Thia  rontina  ia  nada  aaailabla  to  tha  usar,  althon^  tha 
azact  natura  uf  ita  application  ia  uncartain.  Thia  procadura  ia  uaad, 
hoaavar,  aa  tha  baaia  for  Calculata.Qba  and  Calculata.UDac ,  to  ba  azplainad 
latar. 

Procadura  Calculata.LatLonAlt  will  calculata  tha  {gaodatic}  poaition  of  an 
objact  giaan  its  ECI  position  {pos}  and  {tiu}.  It  ia  intandad  to  ba  uaad  to 
dateraina  tha  ground  track  of  a  satallita.  Tha  calculations  assuaa  tha  aarth 
to  bo  an  oblata  spharoid  aa  dafinad  in  VOS  *7}. 

Tha  procaduras  Calculata.Obs  and  Calculata.UDac  calculata  tha  atopocantric* 
coordinatas  of  tha  objact  with  ECI  poaition,  {pot},  and  walocitj,  {*al},  from 
location  {gaodatic}  at  {tlaa}.  Tha  {oba.sat}  ratumad  for  Calculata.Obs 
conalats  of  aziauth,  alawation,  ranga,  and  ranga  rata  (in  that  ordar)  with 
units  of  radians,  radians,  kiloBotars,  and  kilomatars/sacond,  raspact iwaly . 
Tha  VOS  ’73  gaoid  is  usad  and  tha  affact  of  ataoapharic  rafraction  (undar 
standard  taaparatura  and  praasura)  is  Incorporatad  into  tha  slsaation 
calculation:  tha  affact  on  ranga  and  ranga  rata  has  not  pat  boon  quantifiad. 

Tha  {oba.sat}  for  Calculata.UDac  consists  of  right  ascansion  and  daclination 
(in  that  ordar)  in  radians,  igain,  calcnlationa  ara  baaad  on  atopocantric* 
poaition  using  tha  VOS  ’73  gaoid  snd  incorporating  ataoapharic  rafraction. 

aa  UIIT  SOP.OOT  —  VEISIQI  ISO  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa, 

Uaaa  SOP.Hath: 


const 

dap.data 

full. tlaa 

I-E.8.S 

D^lt.S 

eiaa.raa 

angla.raa 

dist.ras 


boolaan  «  trua; 
boolaan  »  trua; 
boolaan  a  falsa: 
boolaan  ■  falsa: 
byta  ■  3: 
bpta  ■  4: 
bpta  •  3: 


war 

foot  :  tcit: 

Procadura  Otttput.Tiaa(tlaa  :  doubla): 

Procadura  Oucput.ECKtiaa  :  doubla: 

poa,val  :  aacter): 

Procadura  Output.l^lalaagla  :  doubla: 

width. doc  :  bpta; 
dagraaa  :  b^laan) . 

Procadura  Output.LatLonAlt(C iaa  :  doubla: 

gaodatic  :  aactor); 

Procadura  Output .Qba(tiaa  :  doubla: 

oba  :  aactor), 

Procadura  Output.UDac(tiaa  :  doubla: 

oba  ;  aactor); 

Thia  usit  bagina  with  a  aat  of  cosatanta  uwad  -  .‘i  .'lug  paraaatara  Tha 
iatastios  kara  ia  to  aat  thaaa  aaluaa  for  cosa  . 'taa'..  tn  tha  output  and  net 
cluttar  output  ealla  with  (oraatting  inforaati^>^  .>.'tito  tha  dafault  aaluaa 
ara  aat  aboaa,  it  ia  aaap  to  changa  thaaa  aalu~'<  ithar  gtaballT  or  locally 
for  aa«^]a,  tha  usar  aay  dacida  to  chasgo  thoao  aaluoa  in  tha  progrta 
initialisation  atap  9r.  thaaa  valuaa  could  '«  aat  prior  to  aaning  calta  to 
rootisoa  within  ttllT  SdP.ODT 

Tha  constant  (day.data)  allowa  for  aalaction  of  output  tt»ta  aa  day/data  (if 
trua)  or  aa  a  iulias  Data  (aaaiar  to  raad  inta  athar  prograua) 

Tha  conatanl  (full.tMaa)  allowa  tha  aalactlos  ef  tiaaa  with  colona  hatwaen  tha 
heura  aad  alnutoa  and  hatwaan  tha  ninutaa  and  aaccndo  <i  o  .  Sh  m  $$),  if  aat 
trua 

Tha  constant  (I.E.V.S)  is  usad  with  outputs  of  latitudo  aM  longituda  to 
spaclfy  an  output  with  lorth/South  or  iMt/WaSt  (if  tr«o)  rathar  than  plus  ar 
aiaua  aaluas. 

Tha  constant  (6.1. S)  allowa  far  angalar  output  in  dagraaa.  aiautas.  md 
sacondn  (if  trua)  rathar  thas  daciasl  dagraaa 

Tha  final  tkraa  constants  ar*  usad  to  sat  tha  pracisian  of  output  for  tiaa. 
angla,  and  distunes  Tariahlos,  raspactirsly .  Tha  dafault  for  (tisM.fas)  of  2 
indicataa  output  ta  hundradths  af  a  sacond  Tha  dafault  far  (angla.raa)  of  4 
indicatas  autpul  ta  faur  daciaaat  placas  (if  D.R.S  •  falsa)  or  aresacands  (if 
O.R.S  •  trua),  autputa  in  dngtaas,  aiautow.  aad  taennda  ara  raundad  ta  tana  af 


arcainnt**,  arcBinut**,  tans  of  arcaoconda,  and  aaoonda  for  valnaa  of  1,  2,  3, 
asd  4,  raapoctivaly.  Tit*  dafsult  for  {dlat.raa}  of  3  indicatoa  a  prociaion  to 
turao  docimal  placaa  la  diatancaa  (l.o.,  Mtara)  aad  air  dacijul  placoa  in 
folocitiaa  (l.o.,  ■illiBotara/aocond) . 

Tha  var labia  {font}  la  a  pra-daflaad  aariabla  to  apacifjr  tha  ontpnt  flla. 

Tba  procadura  Ontpnt.Tiaa  la  naad  to  ontpnt  althar  tha  calandar  data  and  tina 
of  da;  or  Julian  Data  of  {tiaa}  to  {font}. 

Tha  procadura  Ontpnt.ECI  outputs  ECI  poaltion  (poa}  (In  kilonatara)  and 
Talocity  {aal}  (in  hllOBatars/aacond)  aactora  along  alth  tha  tlaa. 

Tha  procadura  Output.lngla  outputs  an  angla  (angla)  in  a  flald  of  width 
{aidth}  aith  {dac}  dacisal  placas.  Tha  aariabla  {dagraas}  is  usad  ahan 
{D..li.S}  is  tma  to  spacify  ahathar  tha  angular  output  is  dagraas  or  hours. 

Tha  procadura  Output_LatLonllt  output  tha  tiaa,  latitnda  (in  dagraas), 
longituda  (in  dagraas),  and  altituda  (in  hiloaatara)  of  an  objact. 

Tha  procadura  Output.Obs  outputs  tha  tiaa,  azianth  (in  dagraas),  alaaation  (in 
dagraas),  ranga  (in  hiloBotars),  and  ranga  rata  (In  hiloaatars/sacond  with 
nagatiaa  aalnas  approaching  tha  obaaraar). 

Tha  procadura  Qutput.hiDac  outputs  tha  tiaa,  right  ascansion  (in  hours),  and 
daclination  (in  dagraas). 

Otttput.ECI  and  Output .LutLonAlt  noa  arita  ECL  at  tha  and  of  aach  lina  if  tha 
satallita  is  in  aarth  nabral  aclipsa. 

Outpnt.Obs  and  Oatput.UOac  noa  output  a  blank  lina  at  tha  coaplation  of  a 

pass. 

aa  UIIT  SOP.TIIIB  —  VEkSIOI  1.50  aaaaaaaaaaao.a.aaaaaaaaaaaaaaaaaaaaaaoaaaa.a. 

Usas  SOP.Nath: 


typo 

clock.tiM  a  stringCll] ; 
data  ■  stringdl} ; 


const 

UUpda  a  1 440 . 0 ; 
sacdty  a  86400.0; 
oaaga.e  »  1.00273790934; 
oasga.Et  a  aaaga,Eataopl; 


{Rinutas  par  day) 

(Saconds  par  day) 

(Earth  rotations  par  sidaraal  day  (aoa'coastant)} 
(Earth  rotation,  radians  par  sidaraal  day} 


IsSO  :  dottbla; 

Function  Julian.Data.of.Yaariyaar  ;  donbla)  :  doubla; 

Function  Jul iatt.Oata.o(.Epoch(apoch  :  doubla)  :  doubla; 

Function  Epoch.T i>a( jd  :  doubla)  :  doubla; 

Function  DOYiyr, BO, dy  :  word)  :  aord: 

Function  Fraction.of.OayCKr.ni .sa.hu  ;  aord)  :  doubla; 

Function  Calaadar.Oats( jd  '.  doubla)  :  data; 

Function  Ti«a.o(.Day( id  :  doubla; 

Full  boolaan, 
raa  :  byia)  ;  ctock.tUu; 

Function  ihalaSiapocb  ;  doubla)  :  doubla; 
funclion  TbatsO, J(l( jd  :  doubla)  :  doubla. 

Function  Oalta.ET(faar  :  doubla)  ;  doubla. 

This  unit  contains  all  tha  rootinaa  to  parfom  tiaa  conaaralona 

Tha  function  Juli4n.9ata.af.Taar  calculataa  tha  Julian  tSaia  of  Day  0.0  of 
(yaar).  Thtn  function  la  ua*d  to  calculaia  tha  Julian  Data  of  any  data  by 
using  Jolian,Dala.af _Taar .  DOT.  and  Fract lon.of.Oay 

Tha  function  Julian.Data.of. Epoch  ratutna  tha  Julian  Data  of  an  apoch 
apactfiad  in  tha  fortaat  usad  in  tha  101110  laa-tina  alaBant  sals 

Tha  function  DOT  calculataa  tha  day  of  tho  yaar  for  tha  spacifiad  data  tha 
Calculation  usas  tha  rulas  far  tSa  Oragarian  calandar  and  is  anlid  froB  tha 
incaption  af  that  calandar  systan 

Fract ion.of .Day  calculataa  tha  fraction  of  a  day  paaaod  at  tha  spacifiad  isput 
ti»a 


Tha  function  Calandar .Data  caSaarts  a  Julian  Data  to  a  siring  of  tha  feta 
"yyyy  Ron  dd*  It  is  typically  uaad  as  tha  Bajar  output  tiaa  foraat 

fi*a.af.9ay  takas  a  Julian  Data  and  calculataa  tha  cloch  tiaa  portion  of  that 
data  Tha  aariahlo  (full)  is  sat  trua  If  it  is  daairad  tc  placa  cslons 
hataaan  hours  and  ainutas  and  Binutas  and  sacaods  Tha  aariahta  (ran)  in  usad 
to  datara'na  tha  nuabar  of  daciaal  placas  aftar  tha  saconds  in  tha  output, 
aaro  giaas  a  raaalotian  of  saconds.  ona  giaas  a  rosolution  of  tonths  of 
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••conds,  ate.  Tli*  *ari«bl«  {i;«s}  can  taka  on  valaas  butvaau  0  and  3. 

Tbt  function  TbataO  calcnlatas  tka  Oraanticb  Raan  Sidaraal  Tina  for  an  apoch 
apacifiad  in  tha  fonat  usad  in  tha  lOUD  tao-lina  alanast  aata.  Tba  function 
TbataO. JD  proTidaa  tba  aaaa  calculation  axcapt  that  it  is  batad  on  an  input  in 
tba  form  of  a  Julian  Data. 

Tba  function  Dalta.ET  bas  baas  addad  to  allou  calculations  on  tba  position  of 
tha  sun.  It  proridas  tba  diffaranca  bataaan  UT  (approrinatalj  tka  tana  as  UTC) 
and  ET  (nos  rsfarrad  to  as  TDT) .  Ibis  function  is  basad  on  a  laast  sqnaras  fit 
of  data  froa  19S0  to  1991  and  sill  naad  to  ba  updatad  pariodicallp. 

aa  UIIT  SOUB  —  VEKSIOR  1.30  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

Usas  SOP.Hatb; 
const 

aclipsad  :  boolaan  a  falsa; 
shos.sis  :  boolaan  a  falsa; 

sar 

cisil, 
naut ical , 

astronoaical  ;  doubla;  (Tsiligbt  alaTations) 
solar.pos  ;  sactor; 

Procadura  Calculata.Solar.Positioa(tiaa  :  doubla; 

sar  aolar.sactor  :  sactor) ; 

Function  Oaptb.of.EclipsaCtina  :  doubla; 

n  :  sactor)  ;  doubla; 

Tha  sarlabla  {aclipsad}  is  prosldad  for  uaa  sith  tha  Function  Dapth.of.Eclipsa 
to  raflact  shathar  a  satallita  Is  in  aarth  unbral  aclipsa  Tba  constant 
{shos.sis}  is  usad  to  indicata  shathar  Infomation  should  ba  output  for  all 
passas  or  only  siaibla  ^asaaa  (i.a.,  satallita  abosa  tha  obaarsar’a  horizon, 
not  in  aarth  unbral  aclipsa,  and  tha  sun  bales  tha  appropriata  thrashold  for 
sbiaa  to  ba  dark  at  tha  obsarsar’s  location). 

Tha  sariablas  {cisil},  (nautical},  and  {astronoaical}  ara  initializad  to  tha 
thrasholds  for  solar  alssatien  darininx  tha  corraaponding  tsiligbts.  Thasa 
ara  dafinad  to  occur  at  6,  13,  and  18  dagraas  bales  tha  horizou,  laspactisaly. 

Tha  sarlabla  {solar.pos}  is  prosidad  to  track  tha  position  of  tha  sun  as 
ealeulatad  is  Elapth.of. Eel  ipso,  thus  asoidiag  an  additional  call  to 
Calcttlata.Solar.Posi t ion . 

Tha  procadura  Caleulata.Solar.Positioa  calculatas  tha  position  of  tha  sun  in 
tha  ECI  eoordinata  systas  at  tha  dasigsated  tiaa  (UTC).  Tha  procadura  aaaas 
an  adjusuaant  for  tha  diffaranca  hatsaan  UT  and  TOT  hy  calling  Dalta.ET  in 
Unit  SCP.TIKE.  Tha  sarlabla  {aolar.sactor}  taturna  tha  ECI  posit ioa  in 
kiloMstars  and  calculatas  tha  distanca  to  tha  sun. 

Tha  function  Dapth.ef .Eeltpaa  calculatas  tha  distanca  an  ebjact  at  position. 

(rl)  at  <tia»a}  is  into  tha  cona  anclssi^  both  tha  aarth  and  tha  nun.  On  tea 
side  of  tha  asrth  asay  fro«  tha  nun,  this  cona  dafioaa  tha  earth ‘s  csoral 
shados.  This  diatanea  is  dataminad  by  first  finding  the  parpeadiculsr 
distanca  of  tha  objact  fre«  tba  Itna  going  through  tho  castors  of  both  th« 
aarth  and  tha  nun  and  than  calculating  tha  distanca  of  tha  adga  of  tha  cone 
frou  this  sasaa  lina  slang  tha  parpandleulnr .  Tha  dnpth  into  aclipea  l»  dafinad 
US  tha  diffaranca  of  thona  taa  distoncas  Pasillaa  saluas  raflo';t  distoncas 
eutsida  tha  aclipsa  no«« .  hacouea  tho  objact  can  ba  althis  tha  cona  on  aitnat 
sida  af  tha  aarth,  tha  soriabla  (aclipsad)  is  sat  trua  if  tha  abjact  is  althln 
tha  cona  on  tha  sida  of  tha  aarth  oppesita  of  tha  nun 

aa  tJtlT  SUPPOhT  —  TEhEtUI  I  hi  aaaaa aa»aasat« » eaaaaaaaaaaaaaaaaaaaaaaaaaaaaae 
Const  (tM  PC  scroan  codas} 


*$ 

« 

(kachspaca) 

ct 

(Carrlog*  katarn) 

aiP 

« 

*»'J. 

iCnrrlaga  hat«rn/t.iea  Paod> 

EEI-l 

• 

•d. 

(Tamina)  halt) 

ESC 

• 

•{. 

(Escape) 

DEt 

« 

t#TF. 

(Uatata) 

“p 

s 

•Tl. 

{Pf  Cornar) 

On 

« 

**o. 

(Deun  Curoer) 

tt 

• 

•rf. 

(tight  t^rsar) 

u 

* 

flaft  Cussar) 

teata 

•Tl. 

(CasM  lay) 

Endd 

IP 

«Th. 

(End  Eay) 

PgUp 

« 

•Tt. 

(Page  Up) 

PgUn 

• 

•#1. 

(Pags  Oaaa) 

C.Li 

« 

•Sin, 

{Caatral'tart  OsTSCf) 

C.kt 

•  J18. 

(Cantral -tight  Cursor) 

C.PgBp 

« 

•  i». 

(Castrat-P^a  Up) 

A  U 


C.PgDa  ■  til8;  {Coatrol'-Fag*  Doan) 

UpOoan  <■  tSItiS;  {Up/Domi  Arroa*} 

Curaora  ■  nAtlStaeta? ;  {Op/Doan/Laft/ltight  irroaa) 

SFraaa  ;  atrisg  ;  (Singla-Liaa  Fraaa  Charactara) 

OFraaa  :  string  *  ” ;  {Oonbla-Liaa  Fraaa  Charactars) 

RFraBa  :  atrlag  ■  ” ;  {Hixad-Liaa  Frasa  Charactars) 

typa 

aptioas  ■  array  [0..i0}  of  atriag; 

tiaa.sat  ■  racord 
yr,BO,dy,hr,Bi,sa,hB  :  aord; 
aad;  {racord} 

Procadara  Cnraor.On; 

Procadora  Cnrsor.Ofx; 

Procadara  Saaa.Cnraor; 

Procadara  kastora  Carsor; 

Procadaro  kaaaraaVidao; 

Procadara  foraalVldao; 

Procadora  BoldVidao; 

Prucadara  FxaBaUiadoa(x,y,a,h,color  :  byta;  titla  ;  string); 

Procadora  HakaViadoaCx.y, a, h, color  :  byta:  titla  ;  string); 

Procadara  Claartfindoa(x,y, a, h  ;  byta); 

Procadara  Shoa.Stataa.Liaaltitla  ;  string); 

Procadara  Shoa.IastractionsCtitla  ;  string); 

Procadara  Clasr.Statas.Lina; 

Procadara  kaport .Error (x,y  ;  byta;  titla  ;  string); 

Procadara  Baap; 

Procadara  Barr; 

Procadara  tUrk.Tisa; 

Procadara  Zara.Tisa^Tst  tiaa  ;  tiaa.sat); 

Procadara  Sat.Carrant.Tiaalaar  tlaa  :  tiaa.sat); 

Fanction  Yas  ;  boolaan; 

Fanction  Tsoi)igit(trg  :  intagar)  :  string; 

Fanction  ThraaOiglt(nrg  :  intagar)  ;  string; 

Procadara  Contart.BlanksCvsr  fiald  :  string); 

Fanction  Intagar.V4laa(boffar  :  string; 

start, langtb  :  intagar)  :  intagar; 

Fanction  kaal.ValaaCbuffar  :  string; 

start, langtU  :  intagar)  :  doabla; 

Fanction  Fila.Existslf ilanaaa  :  string)  :  boolaan; 

Function  Salacc.Fila(titla,patCam,dafa«lt  :  string;  s.y.a.h  -  byta)  :  string; 
Fanction  Salact.OptionCaana  :  options;  Baabar,x,y.s,b  :  byta)  :  byta; 

This  anil  is  cansidarabty  diffarant  froa  iba  othar  aalts  in  this  library  and 
is  intandad  to  bo  a  goaaral  rapport  library  for  a  spaeiftc  bardsara 
i^iaawntat ion,  in  this  cnsa  tha  IBN  PC  ceapatibJa  faaily  of  aieroco^atars 
ranning  Bicreaoft  BOB  Erantaally.  agix*  aachina'spac if ic  coda  aill  ba  pat  is 
this  asit  to  anhanca  porosbiiity,  aarning  that  only  than*  roatisas  sill  hava 
to  ba  changed  to  port  it  to  anothar  aachina.  1  ha«a  dacidad  not  to  delay  tha 
ralaasa  of  tha  paehaga  to  achiaaa  this  goal  slnca  thara  is  no  sidaly  aaailabla 
standard  iaplaaentattos  of  Pascal  to  nacaasitata  each  changaa  kosaaar.  shan 
thosa  units  are  ccnrartad  to  C.  alt  aachina-apacif ic  roettnaa  sill  b«  liaitad 
to  this  enit 

Tha  onit  bagins  sith  a  sat  of  constants  sbich  daflna  tbe  spaciflcs  of  aarioos 
hays  and  cbaractsrs  on  ikk  PCs.  tbair  dafinitiens  oc«  cosMsantad  abeSo 

Tba  tso  typos  dafinad  ara  an  array  of  (opti-;^)  shich  ara  used  sith  tho 
function  Salect.dption  and  (tUM.sat)  ubich  ts  a  rocord  cor\taiaing  tha  year, 
aontb.  day.  hour,  ais.uta.  second,  and  bundrodtb  of  soconds 

Tba  raataining  reutisas  are  described  belas 
Pfoce^rc  Curssr  On. 

tarns  on  a  niach  curser  an  tbe  screen  at  tba  current  cursor  location 
ProceduTa  Cursar.Off . 

4  Idas  tha  curaar  fro*  aies 
ura  Saae.^rssr, 

Sanaa  the  curr^'nt  posit ien  of  the  suteer 
Procedure  kastcra.Oirssr. 

kestsjaS  tha  cursar  tacatisn  to  tha  last  saaed  location 
Proceduro  keaarsaTidao. 

Change  ^  the  taxi  attributas  ta  raaetsa  aide#  ibiack  e«  idkite) 

Procadura  BeraaSVidae. 

Changes  tbe  tart  attributes  ta  nertaal. aides  fubite  on  beach) 

Procadura  kctdTidea. 

Changes  tha  tart  attributes  te  beld  (yelloo  on  black) 

Precedure  FrniiiaVindoeft.y .s.b.cetsr  byte,  title  string). 

Puts  a  fraaa  areund  a  siad-as  <a»4  is  uauaity  called  by  Rak^indos) 
Precedere  RakaVindeaii.y.s.h.celsr  byte,  title  str  iaig). 

Rahas  a  sindoa.  lecated  at  <(i>,{y))  sith  aidth  (a)  and  baight  ih)  in 
color  {cetar)  k  (titla)  is  pet  sn  the  stedoe 
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Procedure  ClearVindow(x,y , 17, b  ;  bjte); 

Clenrtfindov  simply  clears  a  window  from  the  display.  The  code  does  not, 
at  this  time,  allow  restoration  of  underlying  screen  text. 

Procedure  Show_Status_I.ine (title  ;  string); 

Shows  status  on  th.i  left  side  of  the  last  line  of  the  display.  Usually 
used  in  support  of  providing  brief  instructions  during  input . 

Procedure  Show_In8t):uctionsUitle  :  string); 

Similar  to  Show.Status.Line  except  providing  right-justified  output  on 
the  last  line  of  the  display. 

Procedure  Clear.Status  .Line; 

Clears  the  last  line  of  the  display. 

Procedure  Report_Error(x,y  ;  byte;  title  :  string); 

Reports  the  error  s  -jcified  by  {title}  in  BoldVidec  at  the  position 
({x},{y})  and  then  exits  the  program. 

Procedure  Beep; 

Sounds  a  high-pitched  tone  to  draw  attention. 

Procedure  Buzz: 

Sounds  a  lower-pitched  tone  to  indicate  an  error  con'  ‘ion 
Procedure  Hark.Time; 

A  rotating  cursor  to  serve  as  a  visual  indication  that  the  machine  is 
still  operating  during  time-intensive  operations. 

Procedure  Zero_Time(var  time  :  time.set); 

Places  zeros  in  all  element  of  {time}.  Useful  in  initializing  in 
preparation  for  a  call  to  Selact_Tlme_Intarval. 

Procedure  6et_Current_Time(var  time  ;  time.set); 

u..id8  the  current  system  time  into  variable  {time}.  Useful  for 
initializing  Selact_Time. 

Function  Yes  ;  boolean; 

A  function  whic.';  waits  for  the  ■  t  of  a  Y  or  I  in  response  to  a 
questior.  The  words  Yer.  or  Ho  r  nted  in  response  to  the  appropriate 

input  and  Yes  is  set  true  if  a  ve  response  is  received.  For 

examp] e , 

Write(>Are  you  ready?  ’); 

if  Yes  then  Do.Ready  else  Do.Sot .Ready ; 

Function  TwoDigitCarg  :  integer)  ;  string, 

Converts  an  integer  to  a  two-digit  string  with  leading  zeros. 

Function  ThreeDigitCarg  ;  integer)  :  string; 

Converts  an  integer  to  a  three-digit  string  with  leading  zeros. 

Procedure  Convert.BlanksCvar  field  ;  string); 

Used  with  the  next  two  functions  to  c-mvert  leading  spaces  to  zeros  to 
facilitate  text  conversion  to  integers  or  reals. 

Function  Integer.Value(buffer  ;  string; 

start, length  ;  integer)  ;  integer; 

Takes  the  segment  of  {buffer}  beginning  at  {stnrt}  and  having  length 
{length}  and  contorts  it  to  an  integer  number. 

Function  ®oal.Value(buffer  ;  string; 

start, length  :  integer)  ;  double. 

Takes  the  segment  of  {buffer}  beginning  at  {start}  and  having  length 
{length}  and  converts  it  to  a  double  precision  roal  number. 

Function  File.Existsff ilename  ;  string)  :  boolean; 

Checks  to  see  if  {filename!  oxists. 

Function  Salect_Filo(title, pattern, default  :  string;  x,y,w,h  :  byte)  :  string; 
Allows  for  easy  selection  of  input  files.  Select.File  places  ?  window  on 
the  screen  with  upper-. eft  corner  at  location  ({x},{y})  and  having  width 
{w}  and  maximum  height  of  {h}.  The  window  is  labeled  with  {title}  and 
{pattern}  specifies  the  pattern  of  files  to  look  for;  {default}  is  the 
default  pattern  (this  filename  is  highlighted,  if  present) .  Select.File 
returns  the  filename  selected. 

Function  Seloct_Option(menn  ;  options;  number, x,y,u,h  :  byte)  ;  byte; 

Allows  for  the  easy  selection  of  an  option  fro.m  a  menu  {menu}.  The 
values  of  {x},  {y} ,  {w},  and  {h}  are  the  same  as  for  Select.File; 

{num'  '  i'}  indicates  the  total  number  of  options  available.  Select. Option 
returns  the  option  number  selected. 
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B.l  SGP4SDP4  Unit  Source  Code  Listing 

Unit  SaP4SDP4; 

{  Author:  Dr  TS  Kelso  } 

{  Original  Version:  1991  Oct  30} 

{  Current  Revision:  1992  Sop  03} 

{  Version:  1.60} 

{  Copyright:  1991-1992,  All  Rights  Reserved  } 

{«+} 

IIT:;R7ACE 
L’sas  Support , 

SOP.Init , 

SOP.Math,SOP..Tijnei 

Procedure  SQP(time  :  double; 

var  pos,vel  :  vector); 

Procedure  SQP4(t8ince  :  double; 

var  if lag  :  integer; 
var  pos.vel  :  vector); 

Procedure  SDP4(tsince  :  double; 

var  if lag  :  integer; 
var  pos.vel  :  vector); 

IMPLEHEKTATIOI 
Uses  SGP.Intf; 

KSJinit} 

eqsq,siniq,coslq,rteqsq,aa,casq2,sinamo,cosoma , 
bsq,xlldat ,oagdt ,inodot ,znodp  :  double; 

{dpsec/dpper} 

xll,omgasm,rnade«,_em,zinc,m,t  :  double; 

qoDs2t  ;  double; 

Procedure  D«f  ina.Derived.,Constant8; 
begin 

xke  :=  Sqrt(3600*ge/Cube(xkBper)) ;  {Sqrt(ge)  ER“3/ain*2} 

qom82t  :=  3qr(Sqr(qo-s)) ;  {<qo-B)*4  ER*4} 

end;  {Define. Derived.Constants} 

Procedure  SQP4(tsince  :  double; 

var  if lag  :  integer; 
var  pos.vel  :  vector); 


label 

9,10,90,100,110,130,140; 

const 


at 

double  =  0 

a3ovk2 

double  «  0 

BO 

double  =  0; 

aodp 

double  »  0 

aycof 

double  »  0 

betac 

double  "  0; 

betao2 

double  »  0 

cl 

double  ■  0 

clsq 

double  =  0; 

c2 

double  =  0 

c3 

double  =  0 

c4 

double  =  0; 

c5 

double  »  0 

coef 

double  »  0 

coefl 

double  »  0; 

rosio 

double  =  0 

d2 

double  »  0 

d3 

double  =  0; 

d4 

double  =  0 

dell 

double  «  0 

delao 

double  »  0; 

delo 

double  =  0 

eeta 

double  »  0 

eosq 

double  V  0; 

eta 

double  =  0 

etasq 

double  »  0 

isiap 

integer  “  0 

oagcol 

double  =  0 

oagdot 

double  “  0 

perlge 

double  V  0; 

pinvsq 

double  “  0 

pslsq 

double  ■  0 

qoBs24 

double  ■  0; 

si 

double  V  0 

sinio 

doubl)  •  0 

sinao 

double  =  0; 

t2cof 

double  •'  0 

t3coi' 

double  =  0 

t4cof 

double  “  0; 

tScof 

double  “  0 

teap 

double  “  0 

tempt 

double  »  0; 

teapR 

double  =  0 

teap3 

double  ’  0 

thetB2 

double  =  0; 

theta4 

double  »  0 

tsi 

double  =  0 

xlaSth 

double  V  0; 

xlBth2 

double  »  0 

xSthat 

double  ■  0 

x7thal 

double  =  0; 

xhdotl 

double  =  0 

xlcof 

double  »  0 

xacof 

double  »  0; 

xadot 

xnodp 

var 

double  «  0 
double  »  0 

xnodcf 

double  =  0 

xnodot 

double  “  0; 

i  :  integer; 

cosuk,sinuk,rfdotk,vx,vy,vz,ux,uy ,uz,XBy,xmx, 
cosnok,sinnok,cosik,slnlk,rdotk,xinck,xnodekjUk,rk, 
cos2u,sin2u,u,sinu,cosu,betal,rid-ot  ,rdot,r,pl,elsq, 

OS ine , ecose ,epw , teapO , teapS , teap4 , cosepv , sinepu , 
capu ,ayn,xlt ,aynl,xll,Bxn,xn ,beta,xl ,e ,a,tfour , 
tcube ,dalni,deloag,teBpl,teape,teBpa,xnode,tsq,xv  , 
onega,xnoddf ,OBgadf ,iBdf ,x,y,z,xdot,ydot,zdot  :  double; 

begin 

{  Recover  original  aean  aotion  (xnodp)  and  eeaiaajor  axis  (aodp)  } 
{  from  input  elements .  } 
if  (iflag  »  0)  then 
goio  100; 


H-1 


al  Po««r(xka/zno,tothrd) ; 
cosio  ;■  Cos(xiiicl): 
th«ta2  ;»  coalo*cosloj 
x3thal  :s  3athata2  -  1; 
aosq  :>  eo*«o; 
bataa2  :=  1  -  aosq; 
betao  :=»  sqrt(bataa2) ; 

dall  1 .S*ck2*x3thal/(al*al*bataoabetao2) ; 

ao  :=  al*(l  -  dall*(0.6*tothrd  +  dall*(l  +  134/8lad6ll))) ; 

dalo  ;«  1.6*ck2*x3tb<al/(ao«aa«bataoabatao2); 

xnodp  :=  xno/(l  +  dalo); 

aodp  :=  ao/(l  -  dalo); 

{  Initialization  } 

{  For  parigaa  loss  than  220  kilomatars,  tha  isimp  flag  is  sat  and 
tha  aquations  are  truncatad  to  llnaar  variation  in  sqrt  a  and 
quadratic  variation  in  moan  anomalj.  Also,  the  c3  tam,  tha 
delta  omega  term,  and  tha  delta  m  term  are  dropped.  } 
isimp  ;=  0; 

if  (aodp*(l  -  eo)/ae)  <  (220/xkmper  +  ae)  then 
isimp  1 ; 

{  For  perigee  balov  166  km,  the  values  of  s  and  qoms2t  aie  altered.  } 
s4  :=  s; 

qoms24  qoms2t; 

perlge  (aodp*(l  -  ao)  -  aa)axkmper; 
if  (periga  >=  166)  than 
goto  10; 

s4  ;=  perlge  -  78; 
if  (perlge  >  98)  then 
goto  9; 

84  :=  20; 

9; 

qoms24  :=  Power((120  -  84)*aa/xkmper,4) ; 

84  :=  84/zkmper  +  ae; 

10; 

pinvsq  l/(aodp*aodp*betao2*batao2) ; 

tsi  :=  l/(aodp  -  a4) ; 

eta  :=  aodp*eo*tsi; 

etasq  ;=  etaaata; 

eeta  :=  ao«eta; 

pslsq  ;=  absd  -  etasq); 

coef  qoms24*Po«ar(tsi,4) ; 

coefl  ;=  caaf/Powar(psi8q,3.6) ; 

c2  :=  coafl*'ViOd,'''(aodp»(l  +  1.6*ata8q+  eeta*(4  +■  etasq)) 

+  1.76*'  k2^  ..i/p8i8q«x3thml*(8  ♦  3«ata8q*(8  +  etasq))); 
cl  ;=  bstar*c2, 
sinio  :=  Sin(xincl); 
a3ovk2  ;«  -xJ3/ck2*PoHer(aa,3) ; 
c3  :=■  coaf*tai«a3ovk2*xnodp*aa*sinio/eo; 
xlmth2  :=  1  -  thata2; 

c4  2»xnodp*coafl«aodp«betao2*(etne<2  +  0.5*eta8q) 

+  ao*(0.6  +  2*etasq)  -  2*ck2*t8l/(aodp*psisq) 

*(-3*x3thml*(l  -  2*eets  +  atasqad.S  -  0.6*eeta)) 

+  0.76»xlmth2*<2*etasq  -  aeta*d  +  ata8q))*Co8(2*omegao))) ; 
c6  :=  2*coafl*aodp*betao2«d  +  2.76*(eta8q+  eeta)  +  eeta*etasq) ; 
theta4  theta2*theta2; 
tempi  3eck2*pinvsq*xnodp; 
temp2  templeck2*pinvsq; 
temp3  :=  1 .26eck4*pinv8q*pinT8q*xnodp; 
xmdot  xnodp  +  O.6*tenpl*betao*x3thml 

+  0.0626*tei!p2*betao*d3  -  78*theti2  *  137*thata4) ; 
xlm6th  ;=  1  -  6*thata2; 

omgdot  -0. 6*templ*xlm6th  *  0.0626*temp2*(7  -  tl4*thata2  't396ethata4) 
+  tamp3*(3  -  36*theta2  +  49*theta4); 
xhdotl  ;=  -templ*co8io; 

xnodot  ;»  xhdotl  +  (0.6*temp2*(4  -  19*theta2) 

+  2*torap3*(3  '  7*theta2))«co8lo; 
omgcof  b8tar*c3*Co8(omegao) ; 
xmcof  ;»  -totbrd«coef»batar*ae/eeta; 
xnodcf  ;=  3.6*betao2«xhdotl*cl ; 
t2cof  :•  t .6*cl ; 

xlcof  ;=  0. 126*a3ovk2*slnlo*(3  +  6*co8io)/d  +  cosio); 

aycot  ;=  0.25*a3ovk2*Binio; 

delmo  ;=  Poeerd  +  ataeCosCxmo)  ,3) ; 

sinmo  •.=  Sin(xmo); 

x7thmt  ;»  7*thsta2  -  1; 

If  (isimp  v  1)  then 
goto  90; 
clsq  ;•  elect ; 

(12  ;=  4*aodp*t8i*clsq; 
temp  ;=  d2*tsi*cl/3; 
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d3  :=  (17*aodp  +  s4)*t«ap; 

d4  ;»  0.6*t«mp*aodp*tsi*(221*aodp  +  31*s4)*cl; 

t3cof  :»  d2  +  2*clsq; 

t4cof  :»  0.26*(3*d3  +  cl*(12*d2  +  lO^claq)); 

tScof  :■  0.2*(3*d4  +  12*cl*d3  +  6*d2*d2  +  lS«clsq*(2*d2  +  claq)}; 

90: 

iflag  :»  0; 

{  Update  for  secular  grarltj  and  atmospheric  drag.  } 

100: 

zmdf  :=>  xmo  +  xmdotetsince; 
omgadf  omegao  +  omgdot*tsince; 
znoddf  :=  xnodeo  +  znodot*tslnce; 
omega  :=  omgadf; 
zmp  zmdf; 
tsq  :=•  tsinceetsince; 
znode  :<=  znoddf  +  znodcfetsq; 
tempa  :=  1  -  cl*tsince; 
tempe  :=  bstar*c4*t8ince; 
tempi  :=•  t2cof*t8q; 
if  (isimp  =  1)  then 
goto  110; 

delomg  :=  omgcofetsince; 

delm  :=  zmcof*(Poeer(l  +  eta*Cos(zmdf ) ,3)  -  delmo) ; 

temp  delomg  +  delm; 

zmp  :=  zmdf  +  temp; 

omega  omgadf  -  temp; 

tcube  :=  tsqetsince; 

tfour  :=  tsinceetcube; 

tempa  :=  tempa  -  d2*t8q  -  d3*tciibe  -  d4*tfour; 

tempe  :=  tempe  +  b8tar*c5*(Sin(zmp)  -  sinmo); 

tempi  :=  tempi  +  t3cof*tcube  +  tfour»(t4cof  +  tsince*t5cof) ; 

110: 

a  ;=  aodp*Sqr(tempa) ; 
e  :=  eo  -  tempe; 

zl  zmp  +  omega  +  znode  +  znodpetempl; 
beta  :=  sqrtCl  -  e*e) ; 
zn  :=  zke/Pover(a,l .5) I 
{  Long  period  periodica  } 
azn  :=  eeCosComega) ; 
temp  :=  l/(a*beta*beta) ; 
xll  :»  tempezlcofeazn; 
aynl  ;=  temp*aycof; 
zlt  :=  zl  +  zll; 
ayn  :■=  e*Sin(omega)  +  aynl; 

{  Solve  Kepler’s  Equation  } 
capu  :=■  fmod2p(xlt  -  mode); 
temp2  :=  capu; 
for  i  :=  1  to  10  do 
begin 

sineps  :-  Sin(temp2); 
coseps  :=  Cos(temp2); 
temp3  aznesinepe; 
temp4  :=  aynecosepe; 
tempS  axn*co8epe; 
temp6  :=  ayn*8inopw; 

epw  :•  (capu  -  temp4  +  tomp3  -  temp2)/(l  -  temp6  -  temp6)  +  temp2; 
if  (absCopu  -  temp2)  <=  e6a)  then 
goto  140; 

130: 

teup2  :■  epw; 
end;  {for  i} 

{  Short  period  preliminary  quantities  } 

140: 

ecose  :=  temps  +  temp6; 
esine  temp3  -  temp4; 
elsq  :e  axu*axn  +  ayn*ayn; 
temp  :»  1  -  elsq; 
pi  ;=  a*temp; 
r  :*  ae(l  -  ecose) ; 
tempi  :=  1/r; 

rdot  .<•  xke*sqrt(a)*eslne*templ; 
rfdot  :•  i:ke*8qrt(pl)*templ ; 
temp2  :•  a*templ ; 
betal  :•  sqrtCtemp); 
temp3  :«  1/(1  +  betal); 

cosu  temp2*(cosepw  -  azn  +  ayn*e8ine*temp3) ; 
sinu  :«  temp2*(sinepw  -  ayn  -  azn*08ine*temp3) ; 
u  :«=  actan(8inu,co8u) ; 

€in2u  ;=  2*8inuecc.u; 
cos2u  ;=  2eco8U*co8U  -  1; 


tamp  1/pl; 
tai^l  :>  ck2*tamp; 
tamp2  ;>  tampl*tamp; 

{  Updata  for  short  parlodlcs  } 

rk  ra(l  -  1 .6*tamp2*betalax3thml)  +  0.5atampl*xlmth2*cos2u; 

nk  ;«  u  -  0.26atemp2*x7thml*ain2Q; 

xnodak  xnoda  +  1 .6atamp2*co8ioasiit2a; 

rinck  xincl  +  1 .6*tamp2*co8ioasinio*cos2a; 

rdotk  rdot  -  xnatamplaxlmth2*sin2a; 

rfdotk  ■.=  rfdot  +  xiiatempl*(xlmth2acos2ii  *  1  .Sax3thml) ; 

{  Oriantation  vactors  } 
sinnk  ;=  SinCnk) ; 
cosok  Cos (ok); 
sinik  :a  Sin(xinck); 
cosik  Co8(xinck); 
siiutok  ;=  Sin(xnodak) ; 
cosnok  Cos (xnodak); 

XU  -sinnokacosik; 

xmy  :=  cosnokacosik; 

nx  :=  xmxasinnk  +  cosnokacosok; 

uy  :=  xmyasinuk  +  sinnokacosuk; 

uz  :»  sinlkasinuk; 

vx  ;>■  xttxacosuk  -  cosnokasinnk; 

ay  :=  xmyacosut  -  sinnokaslnnk; 

»z  :=  sinik*costtk; 

{  Position  and  aalocity  } 

X  :=  rkanx;  pos[l]  ;=  x; 
y  :=  rkauy;  po8C2]  ;=  y; 
z  :=  rkauz;  po8[3]  :=  z; 

xdot  ;=  rdotkaux  +  rfdotkaax;  aal[l]  ;=  xdot ; 

ydot  :=  rdotkauy  +  rfdotkaay;  a8l[2]  :=  ydot; 

zdot  :=  rdotkauz  +  rfdotkaaz;  aal[3]  ;=  zdot; 

and;  {Procadnre  SQP4} 


Procedure  Deepddeep  :  integer); 


const 

zns 

a 

i.l9459E-6; 

clss 

2.9864797E-6; 

zes  = 

0.01676; 

znX 

a 

1.6836218E-4; 

cll 

a 

4.796806SE-7; 

zel  = 

0.06490: 

zcosis 

s 

0.91744867; 

zsinis 

» 

0.39785416; 

z sings  = 

-0.98088458; 

zcosgs 

a 

0.1946906; 

1.7891679E-6; 

zcoshs 

3 

1| 

2.1460748E-6; 

zsinhs  = 

0; 

q22 

« 

q31 

3 

q33  «= 

2.2123015E-7; 

g22 

a 

6.7686396; 

g32 

» 

0.96240898; 

g44  = 

1.8014998; 

g52 

s 

1.0608330; 

g54 

a 

4.4108898; 

root22  » 

1.7891679E-6; 

root32 

a 

3.7393792E-7; 

root44 

St 

7.3636963E-9; 

root62  “ 

1.1428639E-7; 

root64 

label 

a 

2.176S803E-9; 

thdt 

St 

4.37S2691K-3; 

(dpinit) 

6, 10. 20, 30, 40, 46, SO, 56, 60, 6&, 70, 80, 

{dpsec} 

90.100,106,110,120,126,130,140,160,162,164,160,165,170,176,180. 

{dpper} 

206,210,218,220,230; 

const  {  Typed  constants  to  retain  aaiuas  between  EITRY  calls  } 


iresfl 

iret 

Is 

al 

a4 

a7 

alO 

aqna 

bfact 

cosis 

ctan 

d3210 

d4422 

dS421 

day 

del2 

dls 

eoc 

f220 

f311 

f330 

f522 

f643 

faax6 

g20t 

g310 

g423 

gB32 

omegaq 

ph 

preep 

s3 


integer 
integer 
integer 
double  = 
double  n 
double  » 
double  = 
double  « 
double  a 
double  « 
doable  a 
double  » 
double  = 
double  = 
double  = 
double  = 
double  = 
double  a 
double  » 
double  “ 
double  » 
double  = 
double  a 
double  a 
double  = 
double  • 
double  a 
double  “ 
double  = 
double  = 
double  a 
double  = 


D;  isynfl  : 
>;  iretn 

a2 

integer  »  0 
integer  =  0 

double  =  0 

a3 

double  =  0 

a6 

double  =  0 

a6 

double  =  0 

a8 

double  =  0 

ad 

double  ■  0 

aina2 

double  »  0 

alfdp 

double  e  0 

atime 

double  =  0 

betdp 

double  «  0 

c 

double  =  0 

cc 

double  =  0 

cosok 

double  =  0 

cosq 

doable  >  0 

d2201 

double  =  0 

d22U 

doable  e  0 

d3222 

double  ®  0 

d4410 

double  ■>  0 

d6220 

double  0 

d6232 

double  ■  0 

d5433 

double  •>  0 

dalf 

double  »  0 

dbet 

double  =  0 

deli 

double  ■  0 

del3 

double  •  0 

delt 

double  ■  0 

e3 

doable  =  0 

ae2 

double  ■  0 

eq 

double  >  0 

f2 

double  ■  0 

f221 

double  ■  0 

f3 

double  ■  0 

f321 

double  »  0 

f322 

doable  «  C 

f441 

doable  3  0 

f442 

doable  «  0 

f623 

double  =  0 

f642 

double  ■  0 

fasx2 

double  =  0 

fasx4 

doable  >  0 

ft 

double  »  0 

g200 

double  »  0 

g211 

doable  =  0 

g300 

double  <•  0 

g322 

double  =  0 

g410 

double  =  0 

g620 

double  >■  0 

g621 

double  •  0 

gB33 

double  ■  0 

gam 

double  =  0 

pe 

double  ■  0 

PgB 

double  »  0 

pine 

double  °  0 

pi 

double  «  0 

si 

double  »  0 

82 

double  s  0 

84 

double  s  0 

8& 

double  =  0 

B-l 


86 

double 

m 

0 

87 

double 

B 

0 

ssTtsn 

double 

0 

se 

double 

m 

0 

se2 

double 

S 

0 

se3 

double 

0 

sol 

double 

u 

0 

ses 

double 

B 

0 

sgh 

double 

0 

8gh2 

double 

m 

0 

sgh3 

double 

B 

0 

sgh4 

double 

0 

sghl 

double 

u 

0 

sghs 

double 

a 

0 

sh 

double 

0 

8h2 

double 

B 

0 

Sh3 

double 

a 

0 

Shi 

double 

0 

shs 

double 

B 

0 

si 

double 

a 

0 

812 

double 

0 

si3 

double 

s 

0 

sil 

double 

a 

0 

8ini2 

double 

0 

sinis 

double 

B 

0 

sinok 

double 

a 

0 

sinq 

double 

0 

sinzf 

double 

B 

0 

sis 

double 

a 

0 

si 

double 

0 

812 

double 

B 

0 

sl3 

double 

a 

0 

sl4 

double 

0 

sll 

double 

B 

0 

sis 

double 

a 

0 

sse 

double 

a 

0 

ssg 

double 

2 

0 

ssh 

double 

a 

0 

ssi 

double 

0 

ssl 

double 

S 

0 

SteB 

double 

a 

0 

step! 

double 

0 

stepn 

double 

S 

0 

Stepp 

double 

a 

0 

teap 

double 

0 

teapl 

double 

a 

0 

thgr 

double 

a 

0 

xl 

double 

a 

0 

x2 

double 

B 

0 

x21i 

double 

3 

0 

X20Bi 

double 

a 

0 

x3 

double 

3 

0 

x4 

double 

a 

0 

xS 

double 

B 

0 

x6 

double 

S 

0 

x7 

double 

a 

0 

x8 

double 

a 

0 

xfact 

double 

» 

0 

xgh2 

double 

a 

0 

xgh3 

double 

a 

0 

xgh4 

double 

a 

0 

xh2 

double 

a 

0 

xh3 

double 

a 

0 

xi2 

double 

s 

0 

Xi3 

double 

a 

0 

xl 

double 

a 

0 

xl2 

double 

a 

0 

xl3 

double 

a 

0 

zl4 

double 

a 

0 

xlaBO 

double 

3 

0 

xldot 

double 

a 

0 

xli 

double 

a 

0 

xls 

double 

a 

0 

xaao 

double 

a 

0 

xnddt 

double 

0 

xndot 

double 

a 

0 

xni 

double 

a 

0 

zno2 

double 

0 

xnodce 

double 

B 

0 

inoi 

double 

a 

0 

xnq 

double 

0 

XOBi 

double 

a 

0 

xpidot 

double 

= 

0 

xqncl 

double 

0 

zl 

double 

a 

0 

zll 

double 

a 

0 

zl2 

double 

0 

zl3 

double 

a 

0 

z2 

double 

s 

0 

z21 

double 

a 

0 

z22 

double 

a 

0 

z23 

double 

a 

0 

z3 

double 

a 

0 

z31 

double 

a 

0 

z32 

double 

a 

0 

z33 

double 

a 

0 

zcosg 

double 

= 

0 

zcosgl 

double 

a 

0 

zcosh 

double 

a 

0 

zcoshl 

double 

a 

0 

zcosi 

double 

a 

0 

zcosil 

double 

a 

0 

ze 

double 

a 

0 

zf 

double 

a 

0 

ZB 

double 

a 

0 

ZBO 

double 

a 

0 

ZBOl 

double 

a 

0 

ZBOS 

double 

a 

0 

zn 

double 

a 

0 

zslng 

double 

= 

0 

zsingl 

double 

a 

0 

zsinh 

double 

a 

0 

zsinhl 

double 

a 

0 

zsini 

double 

a 

0 

zsinil 

begin 

double 

0 

zx 

double 

a 

0 

zy 

double 

a 

0 

case  ideep  of 


dpinit  ;  begin  {  Entrance  for  deep  space  Initialization  } 
thgr  Thetag(epoch) : 
eq  :■  eo; 
xnq  ;=  xnodp; 
aqnt  l/ao; 
xqncl  xincl; 
xaao  :  xmo ; 

xpidot  :=>  OMgdt  +  xnodot ; 
sinq  ;=  Sin(xnodeo); 
cosq  Cos(xnodeo) i 
OBOgaq  oaegao; 

{  Initialize  lunar  solar  terss  } 

5;  day  :=  dsSO  +  18261.$;  {Days  since  1900  Jan  0.6} 
if  (day  =  preep)  then 
Goto  10: 
preep  ;«  day; 

xnodce  :=  4.5236020  -  9.2422029B-4eday; 

steB  Sln(xnodce); 

cte«  ;a  Cos(xnodce) ; 

zcosil  ;»  0.91376164  -  0.03568096»cteB; 

zsinil  :■  SqrtCl  -  zcosil*zcosil) ; 

zsinhl  ;■  0.089683611*steBi/zsinil; 

zcoshl  ;=  SqrtCl  -  zsinhl*zslnhl) ; 

c  ;»  4.7199672  +  0. 22997 150*day; 

gam  ;■  6.83E1614  +  0.00t9443680*day; 

zmol  :■  fB' d2p(c  -  gan) ; 

zx  ;■  0.39786416*steB/zslnil; 

zy  ;»  zcoshlectea  +  0.91744a87*zsinhl*steB; 

zx  lctan<zx ,xy) ; 

zx  ;■  gOB  +  zx  -  xnodce; 

zcosgl  :■  Co8(zx) ; 

zsingl  :■  Sin(zx) ; 

zaos  ;»  6.2666837  ♦  0.017201977«day; 

ZBos  :»  fBod2p(zBOB) ; 

{  Do  solar  terBs  } 

10;  savtsn  ;■  1E20; 


ZC08K 

:■  zcosgs; 

zsing 

zsingl: 

zcosi 

:■  zcosis; 

zsini 

:»  zsinil; 

zcosh 

:»i  cosq; 

zsinh 

;«  sinq; 

cc  :■ 

clss; 

zn 

zns; 

ze 

zes; 

l{-r, 


zao 
xnoi 
Is 
20;  al 
b3 
a7 
a8 
a9 
alO 
a2 
a4 
a6 
a6 
xl 
x2 
x3 
x4 
x5 
x6 
x7 
x8 
z31 
z32 
z33 
zl 
z2 
z3 
zll 
zl2 

zl3 

z21 

z22 

z23 

zl 

z2 

z3 

s3 

s2 

s4 

si 

s5 

s6 

87 

8« 

si 

si 

sgh 

sh 


■  zaos; 

:■  1/xnq; 

30;  {assign  30  to  Is} 
zcosgszcosh  zsing*zco8l*zsinh; 

-zsingszcosh  +  zco8g*zcosl*zsinh; 

-zcosgszsinh  +  zslng*zcosl*zca8h; 
zslngszslnl; 

zsingszsinh  +  zco8g*zco8i*zcosh; 

■  zcosg*zslnl; 

cosi ^*a7  +  slniqsaS; 
cosiqsaS  +  slnlqsalO; 

-8iniq*a7  +  coslqoaS; 

-siniq*a9  +  cosiq*alO; 
al*cosflBo  +  a2*sino>o; 
aOscosoBO  +  a4*slnoBo; 

-al*slncBo  +  a2*cosoBo; 

-a3*8lnoBo  +  a4*co8oao; 

aSssinoBo; 

a6*sinoBo; 

a6*co80Bo; 

a6*coroBO ; 

■  12»xl*xl  -  3*x3*x3; 

»  24*xl*x3  -  6*x3*x4; 

»  12*x2*x2  -  3*x4*x4; 

3*(al*al  +  a2*a2)  ♦  z31*sqsq; 

6*(al*a3  +  a2*a4)  +  z32*sqsq; 

3*(a3*a3  a4*a4)  +  z33*sq8q; 

“  -6*al«a5  +  8q8q»('24*xl*x7  -  6*x3«xS) ; 

=  -6*(al»a6  +  a3*aS) 

►  sq8q*(-24*(x2*x7  +  xl*x8)  -  6»(x3*x6  +  x4*xS)); 
5  -6*a3*a6  +  sq8q'>‘(-24»x2»x8  -  6*x4»x6) ; 

^  6*a2*aB  *  »qsq»(24*xl*xS  -  6«x3*x7) ; 

=  6*<a4«a5  +  B2*a6) 

►  «qsq*(24*(x2*xB  +  xl*x6)  -  6«(x4*x7  +  x3*x8)); 
s  6*a4*a6  +  eqsq*(24sx2*x6  -  6*x4*x8) ; 

zl  +  zl  +  bsq*z31 ; 
z2  +  z2  ♦  bsq»z32: 
z3  +  z3  +  b8q*z33; 
cc*xnoi; 


O.S*83/rtsqsq; 
s3*rtsqsq; 

-18*sq*84; 
xl«x3  +  x2*x4; 
x2*x3  +  xl*x4; 
x2*x4  -  xl»x3; 
sl*zn*8S; 

82*zn*(zll  +  zl3) ; 

■znSsOsCzl  +  z3  *  14  -  Ossqsq) ; 
'  s4szn*(z31  ♦  z33  -  6); 
-zn082«<z21  +  z23) ; 
if  (xqncl  <  B.2389877E-2)  than 
sh  ;»  0; 
ss2  :»  2S8l»86; 

•3  ;»  2*8l»87; 

Xi2  ;•  2«s2*zl2; 

xi3  :»  2«s2«(zl3  -  ztl); 

xl2  -2*83*z2; 

xl3  ;«  -2»83»(z3  -  zl); 

xl4  -2*83*(-21  -  9**qsq)*z<; 

xgh2  ;•  2*84*z32; 

xgh3  ;•>  2*s4*(z33  -  z31); 

Xgh4  -18»84*z«; 
xh2  :■  -2»82*z22; 
xh3  ;■  -2»s2*(z23  -  i21); 
cnss  Is  of 
30  ;  Goto  30; 

40  ;  Goto  40; 

•Iso 

Halt; 
and;  {casa} 

Do  lunar  tarms  } 


30' 


ssa 

ssl 

ssl 

ssh 

sag 

sa2 

sl2 

sl2 

sgh2 

sh2 

se3 

si3 

813 

8gh3 


sa; 

si; 

si; 

Bh/sinlq; 

sgh  -  coslq*ssh; 

••2; 

xl2; 

xl2; 

“  xgh2; 
zh2; 

•3; 

xii; 

xl3; 

“  xgh3; 
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»h3  :»  xh3; 
*14  ;»  xl4: 
Bgh4  ;»  xgh4; 


zcoBg  :•  zcosgl; 
zsing  zsingl; 
zcosi  ;«  zcosil; 
zsini  :•  zsinil; 
zcosh  :«  zcoshl*co8q 
zsinh  :«  zinq*zcoshl 
zn  znl; 
cc  cll; 
z«  :=  zel; 
zao  ZBOl; 


Is  :»  40;  {assign  40 
Ooto  20; 

40:  ass  :»  sss  +  sa; 

ssi  :=  ssi  +  si; 

ssl  :»  ssi  +  si; 


+  zsinhlssinq; 
-  cosqszsinhl; 


to  Is} 


ssg  ;=  ssg  *  sgh  -  cosiq/siniq*sh; 
ssh  :«  ssh  -*■  sh/siniq; 

{  Qeopotential  rasonancs  initialization  for  12  hour  orbits  } 
irasfl  :=»  0; 
isynfl  ;=  0; 

if  (xnq  <  0.0052389877)  and  (xnq  >  0.0034906S8S)  than 
Goto  70; 

if  (xnq  <  8.26E-3)  or  (xnq  >  9.24E-3)  than 
axit ; 

if  (aq  <0.5)  than 
axit ; 

irasfl  :=  1; 
aoc  ;=  aq*aqsq; 

g201  -0.306  -  (aq  -  0.64)*0.440; 

if  (aq  >  0.65)  than 
Goto  46; 

g211  :=  3.616  -  t3.247«aq  ♦  16.290*aq8q; 
g310  :=  -19.302  +  117.390*aq  -  228.419»eqsq  +  156.S91»aoc; 
g322  :=  -18.9068  +  109.7927«aq  -  214.6334«aq8q  +  146.S816«aoc; 
g410  :»  -41.122  +  242.694*eq  -  471.094«aq8q  +  313.963*aoc; 
g422  :■  -146.407  +  841.880*eq  -  1629.014aeqsq  +  1083.435»aoc; 
g520  :=>  -532.114  +  3017.977*«q  -  S740«aq8q  +  3708 . 276*aoc ; 

Goto  55; 

45;  g211  :=■  -72.099  +  331.819aaq  -  808.738*8q8q  +  266.724*aoc; 
g310  ;*  -346.844  +  1582.861*aq  -  2415 .926«aqsq  +  1246. 113«aoc; 
g322  ;»  -342.585  +  1584.908*aq  -  2366.899*aqaq  +  1215.972»aoc; 
g410  :■  -1062.797  +  4768.686«aq  -  7193.992»eq8q  +  3661 .957aaoc ; 
g422  ;»  -3581.69  +  16178. ll*aq  -  24462. 77aaqBq  ♦  12422 . 52*aoe; 
if  («q  >  0.716)  than 
Ooto  50; 

g520  :*  1464.74  -  4664.75*aq+  3763.64*aq8q; 

Goto  55; 

60:  gS20  :»  -5149.66  ♦  29936. 92*aq  -  54087 ,36»aq8q  +  31324 . 56«aoc ; 
55:  if  (aq  >»  (0.7))  than 


Ooto  60 
g533 
g521 
g632 
Goto  66 
60:  g533 

g621 

g532 

65:  sini2 
f220 
f221 
f321 
f322 
f441 
f442 
fS22 


-4i9.2277  ♦  4988.61»aq  -  9064.77«aqsq  ♦  5542.21«aoc; 
-822.71072  ♦  4668.6173«aq  -  8491 . 4146*aqEq  ♦  5337 .524»aoc ; 
-853.666  ♦  4690.25*eq  -  8624.77«aq8q  +  S341.4»aoc; 


f523 

f542 

f543 


-37995.78  +  161616. 52»aq  -  229838 . 2*aq8q  ♦  109377. 94*ooc; 
-61752.104  +  218913. 96«aq  -  309468. 16*aq8q  +  146349. 42*aoc; 
-40023.88  ♦  170470. 89»aq  -  242699 . 48»aq8q  ♦  116605.82»aoc; 
siniqasiniq; 

0.76«(1  +  2*cosiq  ♦  cosq2); 

1 .S»8ini2; 

1 .875«8iniq*(l  -  2»C(,Biq  -  3*eosq2) ; 

-1 .875*siniq*(l  +  2*cosiq  -  3»C08q2) ; 

35«8ini2»f220; 

39.37E0*sini2*sini2; 

9.84375*sintq*(Btni2»(l  -  2*co8iq  -  6»co8q2) 

0.33333333* (-2  ♦  4«C08iq  +  6*C08q2)); 
8iniq*(4.92187512*8inl2*(-2  -  4*C08iq  ♦  10*co8q2) 

6.66260012*(1  +  2*COSiq  -  3*C08q2)); 

29.63125*8iniq«(2  -  8*co8lq  ♦  co8q2*(-12  +  8*C0Biq  ♦  10«co»q2)); 
29.63125*8lniq*(-2  -  8*coaiq  ♦  cosq2*(12  ♦  8*co3iq  -  10*coiq2)); 


xno2  :«  xnq*xnq; 
alnv2  :«  aqnv*aqnv; 
tanpl  :*  3*xno2*ainT2; 
taap  :■  t*Bpl*root22; 
d2201  ;»  t*Bp*f220*g201 ; 
62211  :«  t*Bp*f221*g2i;; 
tanpl  ;«  t*Bpl*aqnv; 
t««p  :■  taapl *700132; 
63210  :»  t*Bp*f321*g310; 
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<13223  ;■  t«Bp*f322«g332; 
t«apl  :>  t«apl*aqDT; 
tamp  :■  2*t«Bpl*root44; 

<14410  :■  t«ap*f441*g410; 

<14422  ;>  t«ap*f443*g432; 
taapi  :=  t«apl*aqiiT; 
taap  :=  taapl»root62; 

<15220  ;>  taap*f632*$520; 

<15232  :=•  t«ap*f523*g532: 
taap  :•  2ataaplaroot64; 

<15421  taapaf 542*g621 ; 

<15433  ;■>  taap*f543aa533; 
xlaao  xaao  *  xnodao  * 
bfact  ;=  xll<lot  +  xnodot 
bfact  ;=  bfact  +  ssl  +  ash  ♦  asb 
Goto  80; 

{  Synchronoua  raaonanca  taraa  initialization  } 


xnodeo  -  t;igr  -  tbgr; 

+  xnodot  -  thdt  -  thdt ; 


70:  iraafl 
ixynfl 

g200 

8310 
g300 
f220 
f3Jl 
f330 
f330 
dall 
dal3 
dais 
dall 
taax2 
faax4 
faax6 
xlaao 
bfact 
bfact 
80:  xfact 
{  Initializa  intagrator  } 
xli  xlaao; 
xni  :>  xnq; 


=  li 

1  ♦  aqaq*(-2.5  *  0.8125*aqaq) ; 

1  ♦  2*aqaq; 

1  +  aqaq*<-6  +  6.60937aaqaq); 

0.75*(1  +  coaiq)*(l  +  coaiq); 

0.9375*8iniq«ainiqa(l  +  3*coaiq)  -  0.75*(1  ♦  coaiq) 
1  +  coaiq; 

1 .875*f330»f330»f330; 

?,*xnq*xnq*a<jny«a<inT ; 

2*dol 1 af 220*g200«q22 ; 

3«dell *f330*g300*q33*aqn» ; 
dallaf  31 1  •g3?0*q31*a<}nT ; 

!  0.13130908; 

!  2.8843198: 

I  0.37448087; 

■  xaao  +  xnodao  +  oaagao  -  thgr; 

!  xlldot  +  xpidot  -  thdt ; 

'  bfact  +  aal  ♦  aag  +  aah; 
bfact  -  xnq; 


atiaa 

atapp 

atapn 

8tap3 


Oi 
7i0; 
-720; 
359200; 


dpaac 


and;  {dpinit} 

bagin  {  Entranca  for  daap  apaea  aaeular  affaeta  } 
xll  ;■  xll  +  aalat; 
oagaaa  :■  oagaaa  a  aag*t; 
xnodaa  ;«  xnodaa  *  aah*t: 

_aa  ;•  ao  ♦  aaaat; 
xinc  :“  xincl  +  aaiat; 
if  (xinc  >"  0)  than 
Ooto  W; 
xinc  :»  -xinc; 
xnodaa  :»  xnodaa  ♦  pi; 
oagaaa  :•  oagaaa  -  pi; 

90;  if  (iraafl  ■  0)  than 
axlt ; 

100;  if  (atiaa  •  0)  than 
Ooto  170; 

if  (t  >•  0)  and  (atiaa  < 


105: 


Goto  170 
if  (t  <  0) 
Ooto  170 
if  (*b8(t) 
Ooto  120 


and  (atiaa  >» 


0)  than 
0)  than 


>■  ibt(ttiaa))  than 


dalt  :■  atapp; 
if  (t  >■  0)  than 
dalt  :*  atapn; 

110:  irat  :»  100;  faaaign  100  to  irat) 

Ooto  160; 

120:  dalt  :•  atapn; 
if  (t  >  0)  than 
dalt  :•  atapp; 

135:  if  (Aba(t  -  atiaa)  <  atapp)  than 
Ooto  130; 

irat  ;■  126;  (aaaign  125  to  irot) 

Ooto  160; 

130;  ft  ;■  t  -  atiaa; 

iratn  ;■  140;  (aaaign  140  to  iratn) 

Ooto  150; 

140;  xn  ;«  xni  ♦  xndo-  <■  xnddt»ft»ft»0.6; 
xl  ;■  xli  +  ;  1 xndot*ftaft*0.5; 
taap  :•  -xnodaa  ♦  t*thdt; 
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xll  xl  -  ouaaa  *  t«Kp; 
if  (iaynfl  »  0)  than 
xll  xl  t  trap  *  t«np; 

•xit; 

{  Dot  totra  calcnlatad  } 

150:  if  (isynfl  ■  0)  than 
Ooto  152; 

xndot  ;»  dallaSin(xli  -  f«ax2)  dal2*Sin(2a{xll 

♦  dal3«Sin(3*(xli  -  faax6)); 
xnddt  :«  dall*Co8(xli  -  faax2) 

♦  2adal2aCo8(2*(xli  -  faaxd)) 

+  3adal3«Co8(3«<xli  -  fa8x6}>; 

Qoto  164; 

152:  xoBi  oaagaq  >  oudttatiaa; 
x2oBi  :>  xoai  *  xoal; 
i21i  :»  ili  +  ili; 

xndot  :«  d2201aSin(x2oai  ♦  xli  -  g22) 

♦  d2211aSin(xli  -  g22) 

+  d3210aSin(xoBi  +  xli  -  g32) 

♦  d3222*Sin(-xoai  ♦  xli  -  g32) 

♦  d4410aSin(x2oai  *  x21i  *  g44) 

♦  d4423asin(x21i  -  g44) 

♦  d5220aSin<xoai  ♦  xli  -  gS2) 

♦  d5232*Sin(-X0Bi  xli  -  g62) 

♦  d542t*Sin(xoai  ♦  x21i  -  g54) 

♦  d5433»Sin(-xoai  ♦  x21i  -  g54) ; 
xnddt  :>  d2201*Co8(x2<aii  *  xli  -  g23) 

♦  d2211»Cos(xli  -  g22) 

♦  d3210*Cos(xoBi  +  xli  -  g32) 

♦  d3222*Cos(-xoBi  ♦  xli  -  g32) 

♦  d5220*Caa(xoBi  ♦  xli  -  g52) 

+  d5232*Cos(-xaBl  +  xli  -  g52) 

2«(d4410*Cos(x2oBi  >  x21i  -  g44) 

+  d4422»Cos(x21i  -  g44) 

♦  d5421»Coa(xoBi  ♦  x21i  -  b54) 
d5433aCoa(-xoBi  ♦  x21i  -  g54)); 
xni  ♦  xfact ; 
xnddtaxldot; 


fasxd)} 


(aaaign  165  to  itatn> 

xldotadalt  *  xndot*atap3; 
xndot*dalt  *  xaddt«atop3; 


154:  xldot 
xnddt 

caaa  iratn  of 
140  :  Ooto  140; 

185  :  Ooto  165; 

alaa 

Balt; 

and;  {caaa} 

{  Intagrator  ) 

160:  Iratn  :■=  165; 

Ooto  150; 

165:  xli  ;■  xll  ♦ 
xni  :<•  xni 

atlaa  :■  atiao  *  dalt; 
taaa  Irat  of 
too  :  Ooto  100; 

125  :  Ooto  125; 

alaa 

Halt; 

and;  (caaa) 

(  epoch  raatart  } 

irO:  if  (I  >•  0)  than 
Ooto  ITS; 
dalt  :■  atapn; 

Ooto  180; 

ITS:  dalt  itapp; 

180:  atiaa  :■  0; 
xni  :•  xnq; 

Xli  :■  xlrao; 

Ooto  125; 
and;  {dpaoe) 

dppar  :  hagin  {  Hntranca  for  lasar*aolar  pariodica  ) 
ainia  :■  Sin(xiac) ; 
coaia  :■  Coa(xinc) ; 
if  (Ibaiaavtan  -  t)  <  30)  than 
Ooto  210; 
aaatab  :■  t; 

SB  :•  saoa  ♦  xnaat; 

205:  xf  :■  aa  *  2*xa8*Sln(xa) ; 
alnsf  Sin<sf ) ; 
f2  :«  O.Sasinxfaainsf  -  0.25; 
f3  ;•  -O.SaalnsfaCoalxf ) ; 
aaa  :■  aa2a|2  ♦  aa3«f3: 
ala  :■  al2af2  ♦  al3af3. 
ala  :■  al2*f2  *  ol3*f3  *  al4*alnxf; 
agha  :■  agh2*f2  ♦  agh3*f3  ♦  agh4*ainzf; 
aha  :■  ah2af2  ♦  ah3af3; 
la  :■  saol  ♦  xnl*t; 


zf  ;■  ZB  +  2*z«X*Sin(zB) ; 
sinzf  :■  SinCzf ) ; 
ti  :■  0.6*«inzf*tiBzf  -  0.25; 
f3  :■  -O.S»ziazf»Coz(zf); 

««1  :»  ••2«f2  ♦  •3*f3: 

zil  :■  Zi2*f2  ♦  zi3»f3: 

«11  :«  zl2*f2  zl3*f3  ♦  zX-a^zinzf ; 

*ghl  :«  z^2*f2  +  zghS*!.*?  ♦  r2h4*zlszfi 
*hl  :«  zh2»f2  ♦  Xli3*f3; 
p*  :«  s«s  +  »•!; 
pine  ;■  sis  *  sil; 
pi  :•  sis  *  sll; 

210:  pgh  :«  sghs  +  sghl; 
ph  :»  shs  ♦  shl; 
zinc  :=  zinc  ♦  pine; 

-«B  :■  .SB  ♦  ps; 
if  (zqnel  <  0.2)  thsn 
Goto  220; 

Goto  218; 

{  ipply  psriodie:  dirsetly  } 

218:  ph  :>  ph/sinl<t; 

pgh  ;•  pgh  -  eosiqsph; 

OBgssa  :•  oagasB  *  pgh; 
znodss  :•  znodss  *  ph; 
zll  :*  zll  ♦  pi; 

Goto  230; 

{  Apply  psriodics  sith  Lyddans  Bodification  > 
220:  sinok  Siniznodss); 
eosok  ;■  Cos (znodss); 
alfdp  :■  sinisssinok; 
bstdp  :•  sinis*cosok; 
dalf  phseosok  *  pine  *008  is*sinok; 
dbst  :>  -phssinok  *  pineseosisscosok; 
alfdp  :■  alfdp  *  dalf; 
bstdp  :s  bstdp  *  dbst; 
zls  :■  zll  *  oagasa  +  costssznodss; 
dls  :■  pi  s  pgh  -  piBcszBadssssinia; 
zls  :=■  zls  *  dls; 
znodss  :«  Actan(alfdp, bstdp) ; 
zll  :•  zll  ♦  pi; 

oagasB  :■  zls  -  zll  *  Cos (zinc)* znodss; 
230:  snd;  (dppsr) 
sad;  (cass) 
snd;  (Preesdnrs  Dssp) 


Procsdttrs  Call.dpiait(sar  sesq,sinio,eosio,bstae,aedp>thsta3, 
s iag , eosg , bst  ao3 .  ZBdot .oBgdot , 
zaodott .znodpp  :  doobls); 


bsgin 

sqsq  :•  sosq;  ainlq  :■ 

so  :■  aedp;  casq2  :■ 

bsq  :■  bstaoG;  zlldot  :s 

znodp  : ■  znodpp ; 

Dsspd); 

sosq  .»  sqsq;  slnio  :• 

aodp  :■  so;  thstsG  :• 

bstao2  :•  bsq;  iBdot  :■ 

znodpp  :•  znodp; 

•nd;  (Procsdttrs  Call.dpiait) 


■  sinio; 

•  thsta3; 

s  ZBdot; 


:•  eosql 
:■  zlldo 


eoslq 

sinotto 

OBgdl 


eosie; 

»lng; 

OBgdot , 


eoslq; 
a  IncBo ; 
oBgdt; 


rtoqsq 

eosoBo 

znudot 


•  bstao; 

■  eosg; 

■  znodelt ; 


bstao  :■  risqsq, 
eosg  :*  eosoBo; 
zaodott  ;s  zaodot. 


Proesdors  Call.dpsseisar  zadf .aegsdf  .zaods.SBB.zinec.zna.tsiaes 
bsgta 


doubts) , 


zU 
z  Ine 

0ssp<3) ; 
ZZMlf 

zlnee 


■  ZBdf; 

•  zlaee;) 


oBgasB  :■  oagsdf;  znodss 
zn  :■  znn;  t 


oagsdf 

inn 


sad.  (Proesdurs  Call.dpsse) 


:s  OBgssa; 

:s  zn; 


mods 

tsincs 


:•  mods; 

:s  tsincs; 

:•  znodss; 
■■  1. 


Proesdurs  Csll.dppsrlssr  s. zlnee. oagsdf, mods. zasB 
bsgin 

.SB  :«  s,  zine  :■  zlnee,  oagasa  :• 

zll  s  zzuB; 

0ssp(3) ; 

s  :s  .SB;  zlaee  :■  zinc;  oi^sdf  :■ 

ZBSB  :•  zll; 

snd;  (Proesdurs  Call. dppsr) 


doubls) ; 


oagasa  :s  oagsdf;  modss 


Proesdurs  S0P4(tslncs 
var  ifltg 
zar  pos.ssl 


doubls; 
Intsgsr; 
ssetor) ; 


H-IO 


9,10,90,100,130,140; 


const 

al 

:  dosbla  <•  0; 

a30Tk2 

donbla  a 

0; 

ao 

donbla 

0 

aodp 

:  dODbla  ■  0; 

aycof 

donbla  a 

0; 

batao 

doubla 

0 

batao2 

:  doQbla  a  0; 

cl 

doubla  a 

0; 

c2 

doubla 

a 

0 

c4 

:  dottbla  ■  0; 

coaf 

donbla  a 

0; 

coafl 

donbla 

doobla 

0 

cosg 

:  donbla  a  0; 

cosio 

donbla  a 

0; 

doll 

0 

dalo 

:  doubla  a  O; 

aata 

donbla  a 

0; 

aotq 

doubla 

0 

ata 

:  doobla  =  0; 

atasq 

doubla  = 

0; 

oagdot 

psisq 

doubla 

0 

pariga 

qoBs24 

:  donbla  a  0; 

pinasq 

donbla  a 

0; 

doubla 

0 

:  donbla  ■  0; 

s4 

donbla  a 

0; 

sing 

doubla 

0 

sinio 

:  donbla  a  O; 

t2cof 

doubla  a 

0; 

taBpl 

doubla 

0 

taBp2 

:  donbla  a  0; 

tafn>3 

donbla  a 

0; 

thata2 

doobla 

0 

tbata4 

:  donbla  a  O; 

tsi 

donbla  a 

0; 

XlBbtb 

doubla 

0 

xlBth2 

:  donbla  a  O; 

x3thBl 

donbla  a 

0; 

irthBi 

doubla 

a 

0 

xhdotl 

;  doubla  a  0, 

xlcof 

donbla  a 

0; 

XBdot 

donbla 

0 

inodcf 

;  donbla  a  O; 

xsodot 

doubla  a 

0; 

xnodp 

doubla 

0 

i 

a , axn , ays , aynl ,bat a ,batal , capu ,cos2a  ,cosapa , cos ik , 
cosaok  ,cosn  ,cosuk  ,a  .acosa  ,alsq  ,aB,apB  ,asiBa ,  caigadf , 
pi , r , rdot , rdotk , rf dot ,  rfdotk , rk , siB2a ,s inaps ,s iaik , 
s  innok ,  s  iBB ,  s  inuk ,  1 0^ ,  t  aag>4 ,  t  aBpS ,  t  aapO ,  toBpa , 
taB»a,taq>l,t4<{,B,ak,BX,sy,ax,vx,*7,n,xinc,xiBck, 

intagar; 

X 1 ,  xl  i ,  X 1 1 ,  naa ,  aidf ,  m ,  lay ,  xB ,  xBoddf ,  nod* ,  xaodak , 
x,7,x,xdat,7<iot,Z(tot  .  doabla; 

baglB 

if  (if lag  =  0)  th«B 
goto  100; 

{  tacoxar  origiBal  Baas  aotios  (xBodp)  aad  saaiBajor  axis  (aodp)  } 

{  froB  ispat  alaBOBts.  } 

at  ;>  Powarlxka/xno.tothzd) ; 
coaio  :>  coa(xiacl); 
thati2  coaioacoato: 
x3tkBl  :•  3athata2  -  1; 
eoa<i  :*  aoaao; 
batao2  t  ~  aos<|; 
batao  :■  a<)rt(bata42}; 

dalt  1 .S*ck2aa3tbBl/(at*aI*bataoabataQ2) : 

ao  :<=  ala(j  -  dall*(0.S«totkrd  ♦  dalla(l  a  134/atadalt)» ; 

dalo  :a  1 . Sae)(2ai3tbBt/(aoaao*bataoabatao2> ; 

XBOdp  :*  XSO/(t  *  dvlo); 
aedp  :■  ao/<l  -  italo); 

(  laitlatisatioA  ) 

{  For  parigaa  baloa  t$«  ka.  tba  aalaaa  of  a  a»d  <)a«a2t  ata  altarad.  } 
a4  :•  a; 

<)oaia24  :■  t)OBa2t; 

pariga  :■  (aadp*(l  ■*  au)  -  aataxkapar; 
if  (pariga  >>  ISO)  tbaa  goto  tO. 
a4  :•  pariga  -  TO; 
if  (pariga  >  90)  Ibco  goto  9; 
a4  :•  20; 

9: 

qaB»24  :•  Foaar((t20  -  a4)aaa/ikag>ar.4) ; 
a4  :•  a4/xkapar  ♦  »a. 

10: 

pisva^  :•  W{aodpa«o4p*b*lao>abatoo2). 

aisg  :•  ais(oBagae); 

toag  a  <e»(o«agao); 

lai  a  t/(»odp  -  »4) . 

ala  a  aodp*a«*tai; 

ataat)  a  ara*ai4. 
aala  a  a«*ala; 

:a  ab*(i  •  ataa<t). 

<»af  a  ijoBa2«»Foaar(lat  ,4) . 

Ooafl  a  <oaf/Pa«ar(p«ia'),3  0). 

<2  :a  coaf ta«>odpa(aodpa(t  •  t  Maiaa<|  •  aata*(<  •  aiaa*))) 

•  0  71ia<k3aiai/paie<)at3tbB)«(k  •  3*ataim»(S  •  4ta«<t))). 

<l  a  bataracl. 

alaio  a  aia(iia<l). 

aSoakT  a  -x j3/<lt2aPaaar(aa.3> . 

slBtb2  a  1  -  tbaia2. 

<4  a  2an*»dp*«;oa{l*aodp*batafl2*(ata»(2  •  0  Saalaai}) 

»  awa(0  !i  •  Taataa^)  -  2a<h2aiai/(aodpa5'a»*<t) 

•  (-.lax.ttfcBtalJ  -  2*aata  •  ataa<)a(|  .S  -  O  ^aaata)) 

»  0.7kaxiBth2<(2*4ia«^)  -  a'tlaaO  •  ataa^))»sss{2*«*^#o))> ; 
tb«Ca4  :a  tkala2*lb4ta2; 
tOBpt  a  3ack2*p:n>K9*xaodp. 
ta^2  a  t»<i2*plBXl«t. 

a  I  2sack4*piBaa<)^iaaai)ax«odp. 

xadot  a  taedp  «  O.Saiaapi*bolaaax3tbBl 


n-n 


*  0.063&*t«^2*b«tao*(13  -  78*that«2  *  t37*th*ta4) ; 
xl«6th  :■  t  -  S*th«ta2; 

oaigdot  :•  -O.S*t«^taxlBSth  *  O.0626*t«ap2*{7  -  114*tli«ta2  *  395*tb«ta4) 

♦  t«B]>3*(3  -  36*th*t«2  ♦  49*th«ta4); 
xhdoti  -t«apl«cotio; 

Xttodot  :■  xbdotl  *■  (0.5*t«Bp2«(4  -  i9*thata2) 

*  2*ttap3*(3  '  7«th«ta2))*coaio; 
xnodcf  ;>  3.S«batao2*xbdotl«cl ; 

t2cof  :■  1 .5»cl ; 

xlcof  0.12S*a3aTk2*alnio*(3  ♦  S»cosio)/{I  ♦  cosio); 
aycof  :>  0.2S*a3oTl[2*slnio; 
xHbsl  :•  7*thata2  -  1 ; 

90: 

if lag  ;»  0; 

Call.dplnit  (  *oa<}  ,s  in  io ,  coa  io ,  batao ,  aodp ,  thtta2 ,  s  ing  ,cosg , 
batao2,x»dot ,oagdai,xnodot ,xnodp) ; 

{  Updat*  for  tacnlar  gravity  and  ataoapbaric  drag  } 

100: 

xadf  xma  *  xadot*tainc«: 
oagadf  :•>  onagao  *  oagdotatainca; 
xnoddf  :a  .odao  *  xnodotatainca; 
taq  :*  .'.caatainca; 
xnoda  xnoddf  *■  xnodcf ataq: 
taapa  :■  1  -  cl*taiaca; 
taapa  :>  batar*c4*tainca; 
taapl  :»  t2cof*t8q; 
xn  xnodp; 

Call.dpaacixadf.oagadf .xnoda, aa, line, in. Cainca) ; 

a  :*  Poaar(xka/xn,tothrd)a$<)r(taapa) ; 

a  :a  aa  -  taapa; 

xaaa  :•  xadf  *  xnodpataapl; 

Call .dppar (a , x inc .oagadf , xnoda .xaaa) ; 
xl  :a  xaaa  *  oagadf  *  xn^a; 
bata  :»  eqrtd  -  aaa); 
xn  :•  xha/Poaar(a,l . 5) ; 

(  Long  pariod  pariodies  ) 
axn  :*  a*coa(oaigadf) ; 
leap  :■  l/Caabataabata); 
xll  :■  taapaxleofaaxn; 
aynl  :°  taapaaycof; 
xlt  :•  xl  *  xll: 
ayn  :■  aaainloagadf)  *  aynl. 

(  Selva  Saptax'a  Equation  } 
captt  :■  faod3p(xlt  -  xaodal: 
taap3  :■  capu: 
for  I  ;•  1  to  10  do 
begin 

aiaapa  :»  oia(taap2): 
coaapa  co<daap2}: 
taap3  :•  axnaalnapa; 
l«ap4  :■  aynacoaapa: 
laapS  :•  axnacoaapa: 
taapO  :■  aya*aiaapu; 

ap*  :•  (capu  -  t«ap4  *  taa^  -  ta4ap1)/(l  ‘  -  taap^}  *  taaip3. 

if  (ab*(apa  -  taap3)  <•  a®a)  Xban  goto  140. 

130 

;•  apu; 

and;  (f»*  1) 

(  Sbori  pariod  praliainory  quantitiao  ) 

140 

acoaa  ;•  •  laap4; 

aoina  :•  laa|>3  -  tai^. 
alvq  :•  axnaaxa  •  aya*ayn; 
taap  a  1  -  aiaq; 
pi  a  a»ta<^. 
r  •  aatl  -  aeoaa). 
taaq>l  •  1/r; 

rdol  o  ika*sqrt(o)»a»«Ba*taBpl . 
rfdol  •  xkaaaqrt<pl)»lai^:; . 
laa^l  ■  a*tai^l . 
baiat  *>  aqrt(tai^). 
tat^.'l  •  1/(1  •  ba(al) . 

coau  .»  taap2a(<o»apv  -  oxn  •  aya»a*i»aaxai^) . 

alau  o  -  aya  *  ax»aaaiaa*taaip3). 

a  •  actan(ainu,co«u) , 

ok»2«  •  3*ai»a*coM; 

caa2u  ’  2a<aau*co»a  -  1 . 

taap  •  1/pl; 

laaqil  •  ck3*la<^>. 

taap2  •  taaxpiataap. 


{  Updst*  for  *lkort  porlodics  } 

rk  :*  r*(l  -  1  .S*taBp3*b«tal*x3tliBl}  *  0.5*t«ap)*xlKth2*coa3n 
uk  :■  a  -  0.3S*t<Bp3*x7t)isl*(ln3a; 
xnodok  ;■  xnodt  >  i .S*t«Bp3*coxio*>in3a; 
xinck  :*  xinc  *  1 .5*t*Bp3*coslo*sinio*cos3u; 
rdotk  ;■  rdot  -  xn*t«Bpl*xladh3»«in3tt; 
rfdotk  :■  rfdot  *■  xn*t«apl*(xlBtli3*cos3a  *  l.S*x3tkBl)i 
{  Orientation  factors  } 
sinuk  :•  sin(ak) ; 
cosnk  cos (ok); 
sinik  sin(xinck); 
ecsik  :c  cosCxinck); 
sinnok  sinCxnodak); 
cosRok  cosixnodak) ; 

XBx  :«  'sinnokacosik; 

XBj  :»  cosnokacosik; 

ox  :>  xauasintik  a  cosnokacostik; 

07  ;a  xajasinuk  *  sinnokacosok; 

uz  ;a  sinikasinnk; 

Tx  :•  xBxacosnk  -  cosnokasinuk; 

<tj  :3  xapacosuk  -  sinsokasinuk; 

fz  ;a  sinikacosnk; 

{  Position  and  valocitj  ) 

X  :a  rkani;  posCl]  :■  x; 
j  :■  rkauy;  poaUj  :»  j; 

Z  ;=  rkaux;  pos(3]  :■  i; 

idot  ;«  rdotkaox  ♦  rfdotkarx;  *al(i)  :»  xdot; 

ydot  :»  rdotkauy  ♦  rfdotkaaj;  aai[3i  :■  ydot; 

zdot  :•  rdotkaox  a  rfdotkavz,  «ai(3]  :■  Zdot; 

and;  {Procadora  S0P4> 

Procadnra  $GP<tiBa  :  doobla; 

far  pos.val  :  factor); 

far 

bajin 

talnce  :•  (tiaa  -  jol las.apock)  a  lanpda ; 
if  idaap  a  0  than 
SGPdCtsinca.ifiag.poa.fai) 

atsa 

S0P4< t a  Inca , i f lag , pos .fai > ; 
and;  (Procadora  $GP) 

basin 

Da? ina.Oar ifad.Constania ; 
and. 


It  M 


B.2  SGPJNIT  Unit  Source  Code  Listing 


Unit  SGP.Init; 

{  Author:  Dr  TS  Kelso  } 

{  Original  Version:  1992  Sep  01  } 

{  Current  Revision:  1992  Sep  13  } 

{  Version:  1.10  } 

{  Copyright:  1992,  All  Rights  Reserved  } 

{$«+} 

I1TERF4CE 


const 

max.sats  =  250; 
type 

line_data  =  string[69] ; 

tHo_line  =  array  [1..2]  of  line.data; 


var 

visible 

epoch 

catnr,elset 
obs_name 
selected 
sat_name 
sat .data 

dat a.dr ive ,data_dir . 
work.dr ive ,Hork_dir 


:  boolean; 

:  double ; 

:  string; 

:  string[25] ; 

:  array  [1 . .max.aats]  of  boolean; 

:  array  [1 . .Dax.sats]  of  8tring[22] ; 
:  array  [1 . .max.aats]  of  tuo.line; 


:  string; 


string) ; 


Procedure  Program.InitializeCprogram.name  :  string); 

Procedure  Program.End; 

ISPLEHEHTATIOI 
Uses  CRT, Support; 

Procedure  Program_Initialize(program_name  :  string); 
var 

space, lines  :  byte; 
lina,fn  :  string; 
fi  ;  text; 

begin 

{  Input  header  file  describing  program,  22  lines  by  79  columns  maximum  } 
ClrScr; 

fn  ;=  program_name  +  ’.HDR’; 
if  Flle.Ezists(fn)  then 
begin 

Assign(fi,fn) ; 

Reset (fi); 
lines  ;=>  0; 
repeat 

lines  ;=  lines  +  1; 

Readln(fi,line); 

Vritelndine) ; 

until  EOF(fi)  or  (lines  =  22); 

Close(f i) ; 
end;  {if} 

{  Input  directory  configuration  file  } 
f n  ; =  program_name  +  ' . CFG ’ ; 
if  File_Exists(fn)  then 
begin 

A88ign(fi,fn) ; 

Reset (fi) ; 

Readln(f i,data.drive) ; 
if  data.drive  <>  ’ ’  then 
begin 

datu_drivo[l]  ;=  UpCa3e(data_drive[l]); 
if  data.driveCl]  in  [’A’..’Z’]  then 
data.drive  ;=>  data_drive[l]  + 
else 

data.drive  ;=  ”; 
end;  {if} 

Rsad]n(f i,dnta_dir) ; 
if  data.dir  <>  ’ ’  then 
begin 

space  ;»  Pob(>  ’.data.dir); 
if  space  >  0  then 

data.dir  ;=  Copy(data.dir,l, space-1); 
if  data_dir[Length(data_dir)]  <>  ’\’  then 
data.dir  ;=>  data.dir  + 
end;  {if} 

Readln(fi,work.dri¥e) ; 
if  sork.drive  ?>  ”  then 
begin 
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BOiS;_driT*[l]  ;=  UpCks*(aoik_driT*[l]): 
if  Bork_driT«[l]  in  [’4’..’Z’]  tli«a 
vorlc.driTC  :=  ■ork.iir i»* [1]  +  •:’ 

•Is* 

work_driT«  := 

«nd;  {if} 

R**dln(f i,Bork_dlr) : 
if  ■ork_dir  <>  ”  tn«n 
b«gin 

spaco  :=  Pos(>  >,*ork_dir); 
if  space  >  0  th«n 

work.dir  ;=  Copy(aork_dir,l,spac8-l); 
if  vork_dirCl.«ngtlk(vark_dir}]  <>  ’\'  than 
sork.dir  :=  »ork_dir  + 

•nd;  {if} 

Closa(fi); 
and  {if} 
alsa 
begin 

data_driTa  := 
data_dir  := 
sork_driTa  :=  “ ; 

»ork_dir  ;= 
and;  {alsa} 

end;  {Procadnra  Initialize} 

Procedure  Prof;raM.End; 
begin 

GotoXY(l,24>; 

Cursor_0n; 

end;  {Proc-idare  ?rogran_?-iid} 
end. 
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B.3  SGPJNTF  Unit  Source  Code  Listing 


Unit  SOP.Intf; 

{  Author ; 
{  Original  Vorsion: 
{  Current  Revision; 
{  Version: 
{  Copyright ; 


Dr  TS  Kelso  } 

1992  Sop  03  } 

1992  Sep  13  } 

1.02  } 

1992,  All  Rights  Reserved  } 


{$!+} 

iit=;r»'ace 

const 

ae 

= 

1; 

tcthrd 

2/3; 

xkapor 

= 

6373.135; 

f 

ss 

1/rd. 26; 

RS 

3 

396600.8; 

J2 

3 

1.0826168E-3; 

=S 

-2.'.j881E-e; 

J4 

3 

-1.65597E-6; 

ck? 

3 

J2/2; 

ck4 

3 

-3*K/8; 

xj3 

3 

Ji; 

qo 

= 

as  +  120/xkBper; 

s 

= 

ae  +  78/xkmper; 

eCa 

S 

lE-6; 

dp  in  it 

S 

1; 

dpsec 

3 

2; 

dpper 

3 

3; 

{Earth  equatorial  radius  -  kiloaeters  (VOS  ’72)} 
{Earth  flattening  (WQS  ’72)} 

{Earth  gravitational  constant  (VOS  ’72)} 

{J2  haraonic  (WQS  ’72)} 

{J3  haraonic  (WQS  ’72)} 

{J4  haraonic  (WQS  ’72)} 


{Deep-space  initialization  code} 
{Deep-space  secular  code} 
{Deep-space  periodic  code} 


iflag.ideep  :  Integer; 

XBO , xnodeo , omegao , eo , r Incl , 
zno , xndt 2o , xnddOo , bst ar , 
julian_epoch,xke  :  double; 

IMPLEMEKTATIOI 


end. 
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B.4  SGPJAATH  Unit  Source  Code  Listing 


Unit  SaP.Nath; 

{  Anthor : 
{  Original  Version; 
{  Current  SeTlsion: 
{  Version; 
{  Copyright ; 
{ll-t’} 


Dr  TS  Kelso  } 

1991  Oct  30  } 

1992  Sep  28  } 

1.30  } 

1991-1992,  ill  Rights  Reserved  } 


IITERFACE 


type 

vector  »  array  [1..4]  of  double; 
const 

teopi  =  2  *  pi; 

zero  :  vector  =  (0,0, 0,0); 

Function  Sign(arg  :  double)  '  shortint; 

Function  CubeCarg  ;  double)  :  double; 

Function  Po»er(arg,pBr  ;  double)  :  double; 

Function  Radians (arg  ;  double)  ;  double; 

Function  Degrees (arg  ;  double)  ;  double; 

Function  Tan(arg  ;  double)  ;  double; 

Function  IrcSinTarg  ;  double)  ;  double; 

Function  ircCos(arg  ;  double)  :  double; 

Function  Hodultt8(argl ,arg2  ;  double)  ;  double; 

Function  Faod2p(arg  :  double)  ;  double; 

Function  AcTan(ainx,co8X  ;  double)  :  double; 

Function  Dot(vl,v2  :  vector)  :  double; 

Procedure  Hagnitude(var  v  :  vector) ; 

Procedure  Cro88(vl,v2  :  vector;  var  v3  ;  vector); 

IKPLEMEITATIOI 

Function  Sign(arg  ;  double)  ;  shortint; 
begin 

if  arg  >  0  then 
Sign  :■  1 

else  if  arg  <  0  then 
Sign  ;■  -1 

else 

Sign  ;■  0; 

end;  (Function  Sign) 

Function  Cube(arg  ;  double)  ;  doable; 
begin 

Cube  :•  argeSqr(arg) ; 
end;  (Function  Cube) 

Function  Po»er(*rg.p»r  :  double)  ;  doable; 
begin 

if  erg  >  0  then 
Poeer  Czp(pvr*Ln(arg)) 

else 

Ur iteln(outpat , 'Invalid  arguaent  in  Function  Poser t'); 
end;  (Function  Poser) 

Function  tadianalarg  :  double)  :  double; 
begin 

tauians  :•  arg*pi/I80; 
end:  (Function  tadisns) 

Function  Oegreeeiarg  :  double)  ;  double; 
begin 

Degrees  *  argelDO/pi; 
end;  (Fut.ctiea  .Uegrees) 

Function  Tan(srg  :  double)  :  double; 
begin 

Tan  :«  Sia(atK)/Co8(arg); 
end;  (Function  Tan) 

Function  ArcSiniarg  :  double)  ;  doable; 
begin 

treSin  :•  AreTaa(arg/Sqrt(i *Sqr(arg)) ) ; 
end;  (Function  ArcSln) 

Function  ArcCea(arg  :  double)  :  double; 
begin 

ArcCes  :■  pi/2  -  ArcSia(arg); 
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•nd;  {Function  ixcCos} 

Function  Modulus(argl,aig2  :  double)  :  donble; 

Tar 

■odu  :  double j 
begin 

Bodu  :=  argl  -  Trnnc(argl/arg2)  •  arg2; 
if  Bodu  >“  0  then 
Modulus  :=  Bodu 
else 

Modulus  :=  BOdu  +  arg2; 
end;  {Function  Modulus} 

Function  FBod2p(arg  ;  double)  :  double; 
begin 

FB0d2p  :=  Modulu8(arg,tsopi) ; 
end;  {Function  FBod2p} 

Function  AcTan(sinz,cosx  :  double)  :  double; 
begin 

if  cosx  =  0  then 
if  sinx  >  0  then 
ictan  ;=  pi/2 
else 

Actan  :=  3*pi/2 
else  if  cosx  >  0  then 

Actan  :=  ArcTan(sinx/cosz) 
else 

Actan  :=  pi  +  ArcTan(sinx/co8x) ; 
end;  {Function  Actan}  ^ 

Function  Dot (t1,t2  ;  vector)  :  double; 
begin 

Dot  :=  v1[1]*t2[1]  +  Tl[2]eT2[2]  +  t1[3]*t2C3]; 
end;  {Function  Dot} 

Procedure  Magnitude (var  T  :  vector); 
begin 

v[4]  :=  Sqrt(Sqr(v[l])  +  Sqr(v[2])  +  Sqr<v[3])); 
end;  {Procedure  Magnitude} 

Procedure  Crosa(vl,v2  ;  vector;  var  v3  :  vector); 
begin 

v3[l]  :=  vl[?]*v2[3]  -  vl[3]*v2[2]; 

v3[2]  :=  vl[3]*v2[l]  -  vl[l]«v2[3]; 

v3[3]  :=  vlCl]*v2[2]  -  vl[2]*v2[l]; 

end;  {Procedure  Cross} 

end. 
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B.5  SGPJTIME  Unit  Source  Code  Listing 


Unit  SOP.Tiae; 

{  Author : 
{  Original  Version; 
{  Current  Revision; 
{  Version; 
{  Copyright ; 
{$«+} 


Dr  T3  Kelso  } 

1992  Jun  02  } 

1992  Sep  28  } 

1.60  } 

1992,  ill  Rights  Reserved  } 


IITERFACE 
Uses  SQP.Hath; 


type 

clock_time  =  8tring[12]j 
date  =  stringCll]; 

const 

nnnpda  =  1440.0; 
secday  =  86400.0; 
omega_E  =  1.00273790934; 
omega.ER  =  omega.Eetvopi ; 


{Minutes  per  day} 

{Seconds  per  day} 

{Earth  rotations  per  sidereal  day  (non-constant)} 
{Earth  rotation,  radians  per  sidereal  day} 


var 

dsSO  ;  double; 

Function  Julian_Date_of_Year(year  ;  double)  ;  double; 
Function  Jullan_Date_of_Epoch(epoch  ;  double)  ;  double; 
Function  Epoch.TimeCjd  ;  double)  ;  double; 

Function  D0Y(yr,mo,dy  ;  vord)  ;  vord; 

Function  Fraction_of_Day(hr,ni,se,hu  ;  word)  ;  double; 
Fimction  Calendar_Date( jd  ;  double)  ;  date; 

Function  Tiae.of.DayCjd  ;  double; 

full  :  boolean; 
res  ;  byte)  ;  clock.tlae; 

Function  ThetaG(epoch  ;  double)  ;  double; 

Function  ThetaG_JD(jd  ;  double)  ;  double; 

Function  Dolta_ET(year  ;  double)  ;  double; 

IHPLEMEITATIOI 
Uses  NinMax, Support; 


const 

half.sec  =  O.S/secday; 

Function  Jullnn_Date_of_Year(year  :  double)  ;  double; 

{  Astronomical  Formulae  for  Calculators,  Jean  Keens ,  pages  23-25  } 

{  Calculate  Julian  Date  of  0.0  Jan  year  } 
var 

A,B  ;  longint; 
begin 

year  ;=  year  -  1; 

A  ;=  Trunc(year/100) ; 

B  :»  2  -  A  +  Trunc(A/4): 

Julian_Date_of.Year  ;=  Trunc{365.25  •  year) 

+  Trunc(30.6001  *  14) 

+  1720994.5  +  B; 

end;  {Function  Julian.Date.of.Year} 

Function  Julian.Date.of.Epoch(epoch  ;  double)  :  double: 
var 

year, day  ;  double; 
begin 

year  ;=  1900  +  Int(epoch*lB-3) ; 
day  ;“  Frac (epochal E-3) *163; 

Jullan.Date.of.Epoch  ;■  Julian_Date.of.Year(year)  ♦  day; 
end;  {Function  Julian.Date. of .Epoch) 

Function  Epoch.Tiate( jd  :  double)  :  double; 
var 

year,mo,dy  ;  word; 
yr, time, epoch  :  double: 
odate  ;  date; 

begin 

adate  Calendar. Date(  jd)  ; 

year  :■  Integer. Value(edate,l ,4) ; 
yr  ;«  Integer.Value(edate,3,2) ; 

mo  ;•  Po8(Copy(edate,6,3) , '  JanFebXarAprKayJunJulAugSepOctlovOec*)  div  3; 
dy  ;■  Integsr.Value(edate,10,2); 
time  ;■  Fracfjd  ♦  0.5); 

Epoch.Time  ;■  yralOOO  ♦  DOY(yaar,mo,dy)  ♦  time; 
end;  {Function  Epoch.Time} 
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Function  DOY(7r,Bo,dy  :  oord)  :  tord; 
const 

days  :  array  [1..123  of  word  ■  (31,28,31.30,31,30,31,31,30.31.30,31); 

var 

l.day  ;  *ord; 
bogin 
day  0; 

for  i  :■  1  to  ao'l  do 
day  :*■  day  >  daysllj ; 
day  :■  day  ♦  dy; 
if  <<yr  Bod  4)  *  0)  and 

(((yr  aod  100)  <>  0)  or  ((yr  aod  400)  *  0))  and 
(■o  >  2)  thou 
day  ;■  day  ♦  1; 

DOY  :»  day; 

•nd;  (Function  DOY) 

Function  Fraction_of_Day(br,Bi,ao,hn  :  aord)  ;  douMo; 
bagin 

Fraction.of.Day  :•  (hr  ♦  (Bi  ♦  (a*  ♦  ho/100)/80)/60)/34; 
and;  (Function  Fraction.of.Day} 

Function  Calandar.Oata(Jd  ;  doubla)  :  data; 

(  latronosiical  ForBUlao  for  Calculators,  loan  Naaas,  pagas  26' 27  > 
aar 

Z.Bonth  ;  longint; 

i.B,C,D,E,F, alpha  ;  doubla: 

day,yaar  :  doubla: 

syoar  :  string [4]; 

cdata  :  data; 

bagin 

Z  Trttnc(jd  ♦  O.S); 

F  Fracljd  ♦  O.S); 
if  Z  <  2299161  than 
t  :■  Z 
alaa 
bagin 

alpha  Int(<Z  -  t8672t6.26)/36S24. 2S) ; 

1  :«  Z  ♦  1  ♦  alpha  -  Iat(alpha/4) ; 

8  'S’*! 

C  ;a  Int((B  -  122.1)/36S,2$); 

D  Int(36S.25  «  C>; 

E  :>  Int((l  •  0)/30.6001); 
day  :•  »  -  D  -  Ist(30.600t  a  E)  ♦  F; 
if  E  <  13.$  than 
Bosth  ;■  KaundiE  -  1) 
alaa 

Booth  ;*  toundCE  *  13); 
if  Boath  >  2.S  than 
yaar  ;•  C  *  4716 

alaa 

yaar  ;a  C  4TlS; 

Str(yaar :4:0.syaar); 
cdata  :■  ayaar  ♦  *  ' 

♦  CopyC  laaFab)lartpr)(ayl«ni«lt«g6ap(ktlo«Oa<'.3*Boatb,3}  ♦  '  * 

♦  TvoOlglt(Tr«nc(day)); 

Cal aadar. Data  :•  cdata; 

and;  (FunctloB  Calandar.Oata) 


Fuactian  Tiaa.af.C 


daub] a ; 
baalaaa, 

byta)  :  clack.tiBa; 


*ar 

hr .as  :  laagiat; 
tiBa.sc  :  doubla; 
ctlBa  string; 
bagin 

ran  :•  tRin(tlUr{0,ras)  .3) ; 

tlaa  ;•  34  •  FracCjd  -  0.$  •  balf.aac); 

hr  Truncltlna). 

tlna  •  60  •  Frat{ti»a). 

na  a  TruncCtisa). 

a<  60  ♦  Frtc(tiBa)  -  0  i; 

tiBa  a  1000000  •  10090  *  hr  *  100  a  aB  *  sc. 

St r ( t iaa : <7>ras) ' ran ,ct iBa) . 

Oa)ata(<f isa.l.l). 
if  full  than 
bag  is 

InsartC  '.ttlna.i). 

InnattC  '.ctiBa.S). 
and.  (if) 

Tina. of. Pay  »  ctiaa. 
and.  (Fuxtis*  TiBa.af.Oay) 
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Function  ThotnOCopoch  :  donblo)  ;  donbloi 
{  Koforonct:  Tbo  1992  Intronoalcal  ilannnc,  p«(*  B6.  } 

Tar 

year. day ,OT,jd,TO,QIBT  :  donblo; 
bagin 

yaar  :■  t900  ♦  Xnt(ipoch«lE-3) ; 
day  ;■  Frae<opoch*lE-3)olE3; 

UT  :-Frac<day): 
day  Int(day>; 

jd  :»  Jttlian_Dat«_of.Yaar(yoar)  ♦  day; 

TO  :«  (jd  -  2461546. 0)/3«6a6; 

OgST  24110.64041  ♦  TO  •  (8040104.812806  ♦  TO  •  (0.093104  -  TO  •  6.2E-6)); 

OMST  Hodultta(GliST  *  tacday*OMga.EoUT,socday) ; 

TbotaO  ;>  toopi  *  OHST/aaeday; 
ds60  :»  jd  -  2433281.5  ♦  UT; 

{  ThataO  :>  Hodnlns 16 . 3003880987ada50  ♦  1 .72944494, taopi) ;  > 
and;  {Fnnetion  TbataO) 

Function  Tbata<I_JD(jd  :  donblo)  ;  donbla; 

{  Rafaronca;  Tba  1992  iatronoaical  ilaanac.  paga  88.  ) 
aar 

UT.TO.QIIST  :  donbla; 
bagin 

in  :«  Frac(jd  ♦  0.5); 

jd  :»  jd  -  UT; 

TO  :»  (jd  -  2451545. O)/30525; 

0«ST  :»  24110.54841  ♦  TO  •  (8640184.812860  ♦  TO  •  (0.093104  -  TO  •  6.2E-6)); 
QgST  ;<>  Rodnlna(OHST  *  aacday*oBaga_EoUT,sacday) ; 

ThataO. JD  :>  taopi  •  ORST/aaeday; 
and:  (Fxinction  ThataO. JO) 

Fnnet ion  Oalta.ET(yaar  :  doubla)  :  donbla; 

(  Valuaa  datatainad  naing  data  fro*  1950-1991  in  tha  1990  iatronoaical 
ilaanac.  Saa  OELTi.ET.Vgi  for  dataila.  > 
bagin 

Dalta.ET  ;■  26.465  ♦  0.747622a (yaar  -  1950) 

♦  1.886913aSin(taopia(yaar  -  197S)/33); 
and;  {Function  Dalta.ET) 


B.6  SUPPORT  Unit  Source  Code  Listing 


Unit  Support;  (**  Tills  tuilt  contains  Hachlna-spaciflc  code  **) 
{  inthor:  Dr  TS  Kelso  } 

{  Original  Version:  1992  Jiin  26  } 

{  Current  Herlsion:  1992  Oct  20  } 

{  Version:  1.90  } 

{  Copyright:  1992,  All  Rights  Reserved  } 

{$!+} 

IITERFICE 


const  {IBH  PC  screen  codes} 


BS 

a 

*H; 

{Backspace} 

CR 

a 

(Carriage  Return} 

CRLF 

a 

-B*J; 

(Carriage  Retnm/Line  Feed} 

BELL 

a 

"0; 

(Terainal  Bell} 

ESC 

a 

*[; 

(Escape) 

DEL 

a 

#$7F; 

(Delete) 

Up 

a 

#72; 

(Up  Cursor) 

Dn 

a 

•80; 

(Dosn  Cursor) 

Rt 

a 

#77; 

(Right  Cursor) 

Lt 

a 

#76; 

(Left  Cursor) 

Home 

a 

#71; 

(Boae  Key) 

Endd 

a 

#79; 

(End  Key) 

PgUp 

= 

#73; 

(Page  Up) 

PgDn 

a 

#81; 

(Page  Dosn) 

C.Lt 

s 

#116; 

(Control-Left  Cursor) 

C.Rt 

a 

#116; 

(Control-Right  Cursor) 

C.PgUp 

= 

#132; 

(Control-Page  Up) 

C.PgDn 

#118; 

(Control-Page  Dosn) 

UpDosn 

= 

#24*26 ; 

(Up/Dosn  Arross) 

Cursors 

a 

#24#2b*26«27; 

(Up/Doen/Left/Right  Arross) 

SFraae 

string  »  ’  * ; 

(Single-Line  Fraae  Characters) 

OFraae 

string  =  ” ; 

(Double-Line  Fraae  Characters) 

HFraae 

string  =  ” ; 

(Hlzed-Llne  Fraae  Characters) 

type 

options  *  array  C0..101  of  string; 
tiae.set  «  record 
yr,ao,dy,hr,Bl,se,htt  :  sord; 
end;  (record) 


Procedure  Cursor.On; 

Procedure  Cursor.Ofi; 

Procedure  Stve.Cursor; 

Procedure  Restore.Cnrsor; 

^ocedure  ReverteVldeo; 

Procedure  lorMlVldeo; 

Procedure  BoldVldeo; 

Procedure  FraBeWlndou(x,y,»,h, color  :  byte;  title  ;  string); 

Procedure  HakeVindoeCr.y.e.h, color  :  byte;  title  ;  string); 

Procedure  ClearVindo«(z,y,v,h  :  byte); 

Procedure  Show.Status.Line(title  :  string): 

Procedure  Shott.Instructlons(title  :  string); 

Procedure  Clear.Status.Line; 

Procedure  Report.Error(x,y  :  byte;  title  :  string); 

Procedure  Beep; 

Procedure  Burs; 

Procedure  Htrk.Tiae; 

Procedure  Zero.Tiaeivar  tiae  :  time. set); 

Procedure  Oet.Current.TiaeCvsr  tiae  :  tlae.set); 

Function  Yes  ;  boolean: 

Function  TsoDigit(arg  :  integer)  ;  string; 

Function  ThreeOigitlarg  :  integer)  :  string: 

Procedure  Convert. Blanks(var  field  :  string); 

Function  Integer. Value(buffer  :  string; 

start, length  :  integer)  :  integer; 

Function  Koal.Valuetbuffer  :  string; 

start, length  :  integer)  :  double; 

Function  File.Bxists(f ilenaae  :  String)  :  boolean; 

Function  Select.File(title, pattern, default  :  string;  x,y,s,h  :  byte)  :  string: 
Funct.ton  Selec;.Optlon(acnu  ;  options;  ouaber,x,y,v,h  :  byte)  :  byte; 

IHPLKItetTATlOl 
Uses  CRT,OaS,RinlUx: 


var 

Last.!, Last. Y  :  byte; 

Procedure  Cursor.On; 

var 
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rags  :  zagistars; 
begin 

vlth  rags  do 
bagin 
ah  :»  $01; 
eh  0; 
cl  :«  7; 
end;  {with} 
Intr($10,rag8); 
end;  {Procedure  Cursor.On} 

Procedure  Cursor_0fl; 
war 

regs  ;  registers; 
begin 

with  regs  do 
begin 
ah  :=  $01; 
ch  $20; 
cl  :»  $00; 
end;  {with} 
Intr($10,regs); 
end;  {Procedure  Cursor.Off} 


Procedure  Sawe.Cursor; 
begin 

Last.I  :=  WhereX; 

Last.Y  :=  WhereY; 

end;  {Procedure  Sawe.Cursor} 


Procedure  Restore.Oursor; 
begin 

OotcXYlLast.X.Last.Y); 

end;  {Procedure  Restore.Cursor} 

Procedure  RewerseVideo; 
begin 

TextColor (black) ; 
TextBackground(lightgray) ; 
end;  {Procedure  RewerseVideo} 


Procedure  lorwalVideo; 
begin 

TextColor (lightgray) ; 
TextBackground(black) ; 
end;  {Procedure  lorxwlVideo} 


Procedure  BoldVideo; 
begin 

TextColor(yellow) ; 
TextBackground(black) ; 
end;  (Procedure  BoldVideo) 


Procedure  FraaeUlndos(x,y,w,h, color  ;  byte; 

title  ;  string); 

war 

i  :  byte; 
begin 

{  Window(x,y,x+w»3,y+h*l):) 

{  ClrSer;  } 

«ind'u(x.y,x+w*3,y+h+2) ; 

TextColor(color); 

Write<DFra»eCl})j 
for  i  ;■  1  to  w+2  do 
«rite(0Fra«et21); 
l(rite(DFra»e[3]); 
for  i  ;•  1  tu  h  do 
begin 

OotoXY(l,i+l): 

Urite(0Fraae[4]) ; 

0otoXY(w+4, i*l) ; 

Write(UFra«e[4]); 
end;  (for  i) 

0otoXY<t,h+2); 

Urite(0Fra»e[6)) ; 
for  i  ;■  I  so  w+2  do 
Writo(0Fr»«o[2j); 

Vrite(DFraae[63 ) ; 

0otoXY(2,l): 

tfrite(HFra>e[4)  ,Co)>y((ltle,  1  ,s)  ,RFraBe($}); 
■onsalVideo; 

end;  {Procedure  FraaeUindow) 


Procedure  HakeVindou(x,y,w,h, color  .  byte; 

title  :  string); 


b*gin 

Frw«WUdo«<x,y,«,h, color, ; 

VlndooCx-fS  ,j*i  ,y+h) ; 

end;  {Procednro  HakeVindo*} 

Procedure  Cl««rHindo«(x,y,«,h  ;  byte); 
begin 

Windo* ( X , y , x+o+S ,  reh+1 ) ; 
arScr; 

Hindo«(l,l,80.2S); 

end;  {Procedure  ClenrVindoe) 

Procedure  Sho».Stetu»J.ine(title  :  ntring) ; 
begin 

0otoIY(t,2S); 

»rite(Copy<title,l ,79)) ; 

ClrEOL; 

end;  {Procedure  Sho*_Stetun_Line} 

Procedure  Sbo>_Inetrttctlone(citle  ;  string); 
begin 

0otoZY(80-Ungtb(title)  ,2S) ; 

Hrlte(Copy(tltle,l ,79)) ; 

ClrEOL; 

and;  {Procedure  Shos.Instructions) 

Procedure  Clesr.Statns  Line; 
begin 

Sbos.Status.LineC  > ') ; 

and;  {Procedure  Cleer.Status.Line) 

Procedure  Report. Error(x.y  :  byte;  title  :  string); 
begin 

OotolY(x,y); 

BoldVldeo; 

Wrlte(title); 

tormslVldeo; 

0otoIY(l,24); 

Cursor. On; 

Belt; 

end;  {Procedure  Beport.Error) 

Procedure  Beep; 
var 

I  :  Integer; 
begin 

fo^l^;e  I  to  3  do 

Sound (ISOO); 

Oelay(tOO); 

■oSound ; 

OelayCtO); 
end;  (for) 

end;  {Procedure  Beep) 

Procedure  Ihua; 

ear 

1  :  Integer: 
begin 

for  i  :■  I  to  3  do 
begin 

Sound (SOO) . 

OeleydOO) . 
loSound, 

Oeiay(tO). 
ond,  {for) 

end:  {Procedure  Buas) 

Procedure  Nerh.Tlae, 
const 

tine.count  -  byte  •  0. 
begin 

case  tine. count  of 
O  :  Brilel'-'). 

»  WrtleCX'). 

2  :  BriteCC). 

3  tfrileC/'), 
end:  (case) 

tine. count  ■  (tine. count  •  I)  nod  4. 

BriteCB): 

end.  (Procedure  tIark.Ttae) 

Proeei^ire  Zero.TiaeCear  tine  tMse.set). 
i>e|tn 

uitk  tine  do 


ka  :■  0; 

«nd;  {aith) 

«ad;  {ProctdOT*  Z*ro_TiM> 

Procadar*  Gat.Cu;r«at,Tia*(a«r  tia« 
»*r 

d«  :  %ordi 
bagln 

«US>  tia*  do 

kogio 

GotDatoCjr .ao .d; ,d«} ; 

0*tTla*(hr  ,ai  ,M,ha} ; 

•nd; 

•Bd;  {Proctdar*  Oot.Carroat.Tiaa) 


PoactioB  Toa  :  boolaaa; 

vat 

ck  :  ckar; 
valid  :  koolaan; 
bag  in 
Coraer.Oa; 

rapaat 

ck  :■  Upcaaa(taadlay) ; 

valid  :■  tnta; 
caaa  ck  of 
*t*  :  bagia 

vritalsi 'Yaa') ; 
Yaa  :»  traa; 
aad:  (Yaa) 

'l>  ;  bagia 

vricalaC ’io ’) ; 
Yaa  :•  falaa; 
aad:  (Io) 

alaa 

valid  :a  falaa; 
aad;  <caaa) 

Mtil  valid; 

C>»ri»T.Qff ; 

aad;  (Paactioa  Yaa) 


tiaa.aat) ; 


Paact iea  TweOigitiarg  :  iaiagat)  :  atYiagi 
bagia 

Tao&igil  :v  CkrCtarg  div  10)  ♦  0»d(*0')) 

•  Ckr((atg*od  tO)  •  OrdC>0')>; 
aad.  (Paacitea  TvaOigit) 

Paactiaa  TkraaPigitfatg  :  iatagav)  .  attiag. 

*LaB4rada.b«fg  iatagat. 

bagia 

ka^tada  atg  div  (OO. 
batg  -•  a»g  -  iOOabaadtad*. 

YkraeOigit  a  CktCkaadrad*  *  Ofdi'O*))  •  T»a9igit(ba.' 
aad.  (F«»<ti«o  TkvaaOigii) 

pvacadata  Caavavi.klaakafvw  fiald  aitiag). 

•at 

t  iatagav. 

bagia 

fat  i  a  taagtbCYiatd)  dvaaiv  i  d» 

If  fialdJO  *  '  *  Ifcaa 

fiatdUl  * 

•ad.  (ftacadava  Caavavi.glaaka) 


i'^axii**  taiagav .a»t<iait>«ffa?  airiag. 

oiava.laagik  iatagar)  iaiagat, 

**} 

aaaaav .tVFali  iatagaf, 

bagia 

baffaj  a  CafT<bt:rfai,*i4»i,iaagik). 

Ceavati .kt  aakvibcf far  > . 

*aJ  (baf'>  ar  .ajeavar .  raaali) . 
if  ravvtt  •  0  ifcaa 

iatagar.Valaa  •  aavaar 
•l»a 

latagar  .falaa  •  0. 

•ad.  (Faaciiaa  laiagar  Talva) 

Pcaviiaa  laai.Talaaibioffar  airiag. 

^  vtavt.laagtb  iatagar)  daabla. 


minus  ;  byte; 
result  :  integer; 
ansser  :  double; 
begin 

buffer  :=  Copy(buffer, start, length) ; 
ConTert_BlanXs(buffer) ; 
if  buffer  =  ’ ’  then 
buffer  ;=  ’O’; 
minus  :=  PosC’-’ .buffer) ; 
if  minus  >  0  then 
begin 

buffer  [minus]  :=  ’O’; 

VaKbttffer.ansuer, result) ; 
answer  :=  -answer; 
end  {if} 
else 

Val (buffer .answer, result) ; 
if  result  =  0  then 
Real. Value  :=  answer 

Roport.Errord  ,24, ’Invalid  call  to  Real. Value !’)  ; 
end;  {Function  Real.Value} 

Function  File_Exists(f iler.ame  ;  string)  ;  boolean; 
var 

filehandle  :  text; 
begin 

Assigntfilehandle, filename) ; 

{$i->  Reset (filehandle) ;  {$i+} 
if  lOResult  =  0  then 
begin 

File.Exists  :=  true; 

Close(f ilehandle) ; 
end  {if} 
else 

File.Eiists  :=  false; 
end;  {Function  File.Erists} 

Function  Selact_File(title, pattern, default  :  string; 

x,y,w,h  ;  byte)  :  string 


var 

choice  :  char; 

start .stop, 
count .select,!  :  word; 

dirinfo  :  SearchRec; 

filedata  :  array  C1..S0]  of  string; 

begin 

Cursor. Off ; 

FindFir8t(pattern,inyFile, dir info) ; 
count  :=  0; 
select  :=  1 ; 
while  DosError  =  0  do 
begin 

count  ;=  count  +  i; 
f iledataCcount]  :=  dirinfo. name; 
if  f iledataCcount]  =  default  then 
select  :=  count; 

FindIoxt(dirinf.-) ; 
end;  {while} 
w  ;=  IHax(12,w) ; 
h  :=  II!in(h,IMai(l, count)) ; 
HakeWindow(x,y,w,h, white, title) ; 
if  count  =  0  then 
begin 
BoldVideo; 

Write* ’lo  files!’); 

Delay (1000) ; 
dormalVi'.Ieo; 

Windowd  ,1 ,80,25) ; 
flc'oXYd,26); 

OlrEOL; 

OotoXYO  .24); 

Oursor.Oh; 

Halt ; 
enu  i.if} 
else 
begin 

start  ;=  IH;  ,',>unt  -  h  +  1, select); 
stop  start  +  h  -  1 ; 
repeat 
ClrScr; 

for  i  .=  start  to  rtep  do 
begin 

GotoXYd,i-8tart+l)j 
if  i  =  select  then  BoldVideo; 
Writo(Copy(f iledataCi] ,1 ,w)) ; 
if  1  a  select  then  lorDalVileo; 


•ttd;  {for  1} 
choic*  ;>  RoadKoy; 

If  choico  ■  to  than 
bagin 

choica  RaadKay; 
caaa  choica  of 
Up  :  bagin 

salact  :>  IR«x(l,ialact-l); 
if  aalact  <  atari  thaa 
bagin 

atart  :>*  salact; 
atop  ;■  start  +  h  -  1; 
and;  {if} 
and;  {Up} 

Dn  :  bagin 

salact  IMlnCcoant.salactai) 
if  salact  >  stop  than 
bagin 

atop  salact; 
start  :»  stop  -  h  ♦  1; 
and;  {if} 
and;  {Dn} 
and;  {caaa} 
and:  {if} 
until  choica  >  CR; 

Salact.Fila  :*■  flladataCsalact] ; 

Dalay(SOO); 

and;  {alsa} 

KakeV indos (r , y , a ,h , 1 ightgray . t it la) ; 

Windo»<l.l,80,2S); 

and;  {Function  Salact.Fila} 

Function  Salact_Option(aanu  :  options; 

nuMbar,r,y,a,h  :  byta)  •  byta; 
»ar 

choice  :  cl  ; 

stait,stop,salact,i 
begin 

Cursor, Off ; 
h  :=  IHinCh, number) ; 
salact  :»  i; 

HakaViudosix.y ,  a, h,  white , Bans  [0] ) ; 
start  ;a  IKininunbar  -  h  ♦  1, salact); 
atop  ;»  start  ♦  h  -  1 ; 

repeat 

ClrSer; 

for  i  :»  start  to  stop  do 
begin 

OotolYit ,i-start*i) ; 

if  i  •  select  then  BoldVldao; 

Write(aanu[i]) ; 

if  i  ■  select  than  lotBalVidao; 
end;  {for  i} 
choice  :•  KaadXey; 
if  choice  e  fO  than 
begin 

choica  :■  RaadKay; 
caaa  choice  of 
Up  :  begin 

select  :•  IRaail  ,neUct-i) ; 
if  select  <  start  then 
begin 

start  :•  salact ; 
stop  start  eh-  t; 
and;  (it) 
and;  (Up) 

Da  ;  begin 

Select  :•  lRia{nUBber,aelacl*l); 
if  select  >  stop  then 
begin 

stop  : •  select ; 
start  ;*  atop  -  h  ♦  I ; 
and;  (if) 
end;  {On} 
and;  (case) 
end;  (if) 

until  choice  •  CK. 

Select. Opt  ion  :»  select; 

DoUy(hOO); 

RaheU iadcs (i ,y , w ,h ,  1  i^tgr&y  .aaauiO] )  , 
aiadcs(i,I.SO,?S); 
end;  (Function  Select. Option.) 
end . 


B,7  SGP^CONV  Unit  Source  Code  Listing 


Unit  SQP.Conv; 

{  Author : 
{  Original  Version: 
{  Current  Revision; 
{  Version: 
{  Copyright : 


^Ite^face 

Uses  SQP.Hath; 


Or  TS  Kelso  } 

1991  Oct  30} 

1992  Sep  03} 

1.00  } 

1992,  All  Rights  Reserved  } 


Procedure  Convert_Satellite_Data(arg  ;  integer) ; 
Procedure  Convert_Sat_State(var  pos.vel  ;  vector); 


IMPLEMEITATIQV 

Uses  Support ,38P_Intf, S6P_Init  jSQP.Tiae; 

Procedure  Convert.Satellite.nataCarg  :  integer); 

var 

iexp.lbexp  :  integer; 

al, ao, dell ,delo,znodp, temp  :  double; 
abuf  :  tso.line; 

begin 

abuf  sat_data[arg] ; 

{*  Decode  Card  1  *} 
catnr  ;■=  CopyCabuf  [1]  ,3,6)  ; 

epoch  :■  Real_Value(abuf[l} ,19,14) ; 

jullan.epoch  Julian_Data_ol_Epoch(apoch) ; 


xndt2o 

xnddOo 

iexp 

bstar 

ibexp 

elset 


Real_Valae(abuf [1] ,34,10) ; 
Real_Value(abuf [1] ,45,6)*1E-S; 
Integer_Value(abuf [1] ,51,2) ; 
Real_Valua(abuf [1] ,54,6)*lE-6; 
lnteger_Value(abuf [1] ,60,2) ; 
ThreeDiglt(Intoger_Value(abuf [1] ,66,3)) ; 


{•  Decade  Card  2  ♦} 

xincl  :»  Real.ValueCabuf [2] ,9,8) ; 

xnodeo  :»  Real.Value<abuf [2J ,18,8) ; 

so  ;*  Real_Valuo(abufr2] ,27,7)*lE-7; 

oaegao  Real.ValuaCabuf [2] ,36,8) ; 

xao  ;=  Real.ValueCabuf [2] ,44,8) ; 

xno  :■  Roal.Value(abuf [2] ,53,11); 

(  period  :»  1/xno;  } 

{•  Convert  to  proper  units  •} 

xttdd6o  :<■  xndd6o*Po«er(10.0,iexp) ; 

bstar  ;■  bstar»Po»er(tO.O,ibexp)/ao; 

xnodeo  :■  Radians(xnodeo) : 

oaegao  :■  Radians (oaegao); 

xao  Rad  Ians  ( xao) ; 

xincl  ;»  Radians(xinei) ; 

xno  :*  xnoetvopi/xanpda; 

xndt2o  :>  xndt3oetvopi/S<)r(xanpda) ; 

xndd6o  ;■  xudd6o*t«opi/Cube(xBnpda) ; 

{*  Oeteraine  ehether  Deep-Space  Kodel  is  needed  *} 
al  :■  Po*er(vke/xno,tothrd) ; 

tsap  :■  1 ,Seck2e{3eS^r<Cos{xincl))-t)/Pover(l  -  eoeeo,l.S); 
dell  :■  terp/(aleal) ; 

ao  •  ale(l  -  delleC0.6»tothrd  ♦  delle<l  ♦  134/8iedell))) ; 
delo  teap/Caoeao) ; 
xnodp  :•  xno/(t  ♦  delo); 
if  (tvopi/snodp  >o  236)  then 
Ideep  ;■  1 
else 

Ideep  0; 
iflag  :•  1; 

end;  (Procedure  Convert. Satellite.Data) 


Procedure  Convert. Sal. Stale(var  pos.vel 
var 

I  :  byte; 
begin 

for  i  :•  I  to  3  do 
begin 

pos(i)  :•  pos[i]exkaper; 
velU)  velii j»xluaper/60 
end;  (for  i) 

Ragaitttde(pos), 

Ragnilade(vel); 

end;  (Procedure  Convert.Sat.State) 
end. 


vector) , 


(kiloaeters) 

(kiloaetere/socoad} 
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B.8  SGPJN  Unit  Source  Code  Listing 


Unit  SGP.In;  (^*  This  unit  contains  nachins-spscific  cods  ••) 
{  Author:  Dr  TS  Islso  } 

{  Original  Version ;  1992  Jun  25  } 

{  v:ur.-«n»  BsTision:  1992  Sep  13  } 

{  Version:  2.00  } 

{  Corjright:  1992,  All  Bights  Reserred  } 

{$■+} 

INTERFACE 

jses  SGi_!!ath,SGP_Init, Support; 
const 

data_type  :  byce  =  3; 


ear 

f sat, fobs  :  text; 

Procedure  Select.TiiaeCnessage  :  string; 

xpos,ypos  :  byte; 

Y?r  default  :  tiae.set; 
precision  :  byte) ; 

Procedure  Select.Tiae.IntertaKnessage  :  string; 

zpo3,ypos  :  byte; 

»ar  default  :  tise.set; 
precision  :  byte) ; 

Function  Checksuni_Good(line  :  line_data)  :  boolean; 
Ftinction  Good_Elenents(line  :  tvo.line)  :  boolean; 
Procedure  Input.Satellit^ (index  :  word) ; 

Ftti.:ti'>n  Input _Sati.llitr  ^ata(iU  :  string)  :  word; 
Procedure  Select_Satelli.ces(title  :  string; 

i,y,s,h  :  byte; 
number  :  word) ; 

Procedure  Input_Obser»er(Yar  geodetic  .  vector) ; 


IMPLEHEBTATIOI 


Uses  CaT,DaS,)!inK  t; 


var 

i  :  byte; 

Procedure  Echo.TiaeCtine  :  time.set; 
item, precision  :  byte) ; 

begin 

QotoXY(2,l): 

ClrEOL; 

if  item  -  1  then  BaverseVidao; 

WriteCtime  .yr) ;  lomalVideo; 

Write(’  >); 

if  item  =  2  then  ReverseVideo; 

Write(Copy(’  JanFebHarAprHayJnnJulAugSepGctliovbec’  ,3*time.mo,3)) 
■ormalVideo; 

Write (’  >); 

if  item  =  .3  then  ReverseVideo; 

Hrite(TsoDigit(time.dy)) ; 

RormalVideo; 
if  precision  >  3  then 
begin 

Writo(>  >); 

if  item  =  4  then  ReverseVideo; 

VriteCTuoDigitCtime.hr)) ; 
lormal Video; 
and;  -Tif} 

if  precision  >  4  then 
begin 
Writa(  ’  : 

if  item  =  B  then  ReverseVideo; 

Write(TwoDigit(tlmo.mi)) ; 

HormalVideo ; 
end;  {if} 

if  precision  >  S  then 
begin 

WriteC  ’ :  ’) ; 

if  item  =■  6  then  ReverseVideo; 

Write(THoDigit(time.8o)) ; 

lormalVideo; 

end;  {if} 

if  precision  >  6  then 
begin 

HriteC ’ .  ’) ; 

if  item  “  7  then  ReverseVideo; 

WritoCTuoDigitCtima.hu)) ; 
lormalVideo; 
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end;  {if} 

end;  {Procedure  Echo_Tiae} 

Procedure  Update_Field(choice  :  char; 

▼ar  Talue  :  vord; 
llim.ulim  :  word; 

var  pos  ;  byte; 
Ipos.upos  :  byte); 

begin 

case  choice  of  .  ,  ,  .  , ,  x 

Up  :  value  :=  IHin(value+l,ulia) ; 

Dn  :  value  :=  IMax( value-1, Ilia); 

Home  :  value  ;=  Ilia; 

Endd  :  value  :=  ulim; 

Lt  :  pos  :=  IMaidpoa.poa-l) ; 

Rt  ;  pos  :=*  IHin<pos+l  ,upos) ; 
end;  {case} 

end;  {Procedure  Update_Fiald} 


Procedure  Select.Time (message  ;  string; 

zpos,ypos  :  byte; 
var  default  ;  time.set; 
precision  :  byte); 
const  ,  , 

days  ;  array  [0.. 1,1..  12]  of  byte 

=  ((31,28,31,30,31,30,31,31,30,31,30,31), 
(31,29,31,30,31,30,31,31,30,31,30,31)); 

var 

poa,s  :  byte; 

choice  :  char; 

Him, ulim  ;  array  [1..7]  of  vord; 

Function  LY(year  :  Hord)  ;  byte; 

begin 

if  (year  mod  4=0)  and 

((year  mod  100  <>  0)  or  (year  mod  400  =0))  then 
LY  :=  1 
else 
LY  :=  0; 

end;  {Function  LY} 
begin 

Cursor.Off ; 

precision  :=  lMin(IMax(3, precision) ,7) ; 
case  precision  of 

3  ;  B  ;=  13; 

4  :  B  ;=  17; 

5  ;  B  ;=  20; 

6  :  B  ;=  23; 

7  :  B  ;=  26; 
end;  {case} 

if  precision  <  7  then 
default.hu  :=  0; 
if  precision  <  6  then 
default .se  :=  0; 
if  precision  <  S  then 
default .mi  :=  0; 
if  precision  <  4  then 
default. lir  ;=  0; 

MakeWindoB (xpos , ypos , B , 1 ,  Bhit e ,me8sage ) ; 


=  2200; 

=  12; 

=  days  [LY(dafault.yr), default. mo] ; 
=  23; 

=  59; 

=  59; 

=  99; 


llimCl]  ;=  1957;  ulim[l]  ;=  2200; 

llim[2]  ;=  1;  ulim[2]  ;=  12; 

llim[3]  ;=  1;  ulim[3]  ;=  days  [LY  (default.] 

llim[4]  ;=  0;  ulim[4]  ;=  23; 

llim[5]  :=  0;  ulim[5]  :=  59; 

llim[6]  :=  0;  ulim[6]  ;=  59; 

llim[7]  ;=  0;  ulim[7]  :=  99; 

pos  ;=  1; 

Echo_Time (default ,pos , precision) ; 
repeat 

choice  ;=  ReadKey; 
if  choice  =  #00  then 
begin 

choice  ;=  ReadKey; 

if  choice  in  [Up, Dn, Home, Endd, Lt,Rt]  then 


case  pos  of 

1  :  Updata_Field(choice, default .yr,llim[pos] ,ulim[pos] , pos, 1 , precision) 

2  ;  Updata_Field(cho ice, default .mo ,llim[pos] ,ullmtpos] , pos, 1  .precision) 

3  ;  Update_Field(choice, default .dy,llim[po8] ,ulim[po8], pos, 1, precision) 

4  ;  Updato_Field(choice, default. hr, llim[po8],ulim[pos] , pos, 1 , precision) 

5  ;  Updato.Fiold(choice, default .mi, llim[po8],ulim[po8] ,pos,l , precision) 

6  ;  Updato_Field(choice, default .se ,llim[po8] ,ullm[po8] ,pos,l , precision) 

7  ;  Update.Fiold(choice,default .hu,llim[po8] ,ulim[po8] , pos, 1, precision) 

end;  {case} 


oli>[3]  daysCl,Y(d«faQlt.7r},dafault.Bo]  ; 
if  dafault.dy  >  tilia[3]  than 
dafanlt.dy  aliM[3] ; 
E''ho_Tiaa(dafanlt,pos,praclsion) ; 
and:  {if} 
and:  {if} 
nntil  cnoica  ■  "M; 

HakaHindoB(xpoa,ypos,a,l .lightgray ,>as8aga) ; 
Echo.Tiaa(dafattit,0,praci8iott) ; 
«indo»(l,l,fl0,26); 
and;  {Procadara  Input _Tiaa} 


Procadura  Echo.Tiaa.IntarvaKtiaa  :  tiaa.sat; 

itaa.praciaion  :  byta) ; 

bagin 

aotoXy(4,J); 

ClrEOI.; 

if  itam  >  3  than  RaaartaVidao; 
tfrita(TBoDlgit(tiaa.dy)} ; 

■onalVideo; 
if  pracialon  >  3  than 
bagin 

Writa(>  >); 

if  itaa  >  4  than  RavarsaVidao; 
Vrifa(TBoDigit(tina.hr)) : 

■onaalVideo; 
and;  {if} 

if  pracision  >  4  than 
bagin 

Writa<>: >): 

if  ita*  =  6  than  RavarsaVidao; 
Viita(TBoOigit(tiBa.ni)) ; 
lonalVidao; 
and;  {if} 

if  pracision  >  S  than 
bagin 

«rita(>;>)i 

if  itaa  *  6  than  RavarsaVidao; 

Wr ita (TBoDigit (t  iaa . 8a) ) ; 

lorawlVidao; 

and;  {if} 

if  praciaion  >  6  than 
bagin 

Vrita( ’ . ' 

if  itaa'»  i  than  RavaraaVidao; 
VritaCTBoDigitCtina.hu)) ; 
lotiialVidao; 
and;  {if} 

and;  {Procadura  Echo.Tiaa.Intarral} 


Procadura  Salact.Tiaa.IntarvaKaasaaga 

xpo8,ypo8 
Tar  dafauit 
praciaion 

Tar 

P08,B 

ehoica 
llin.ulia 
bagin 
Curaor.Off ; 

praciaion  ;»  IHin(IKaz(3, praciaion) ,7) ; 
caao  pracision  of 


string; 
byta; 
tiaa.sat ; 
byta); 


byta; 

char; 

array  [1..7]  of  Bord; 


3 

« 

:  ■ 

s 

4 

V 

:  ■ 

9 

S 

V 

;  ■ 

12 

e 

v 

IS 

7 

V 

:■ 

18 

and;  {caaa) 
if  pracision  <  7  than 
dafattlt.hu  ;»  0; 
if  pracision  <  6  than 
dafauit .aa  :s  0; 
if  praciaion  <  6  than 
dafauit .ni  :b  0; 
if  praciaion  <  4  than 
dafault.hr  :>  0; 

NakaVindoB<xpoa .ypoa ,IHax(Bai ,13) ,3,Bhitt,Basaaga) ; 
Erita(Copy(’  days  hr ;nn;sc.htt' ,1 ,b)) ; 
lllnO]  :*  ■  ■ 

llin[4]  :■ 
llinW  ;« 
lliB[6]  :• 

11U[73  ;• 
pos  :■  3; 


0; 

ulin{3] 

;■  99; 

:«  0; 

ttliB[4j 

;»  23; 

;»  0; 

ttlinfs] 

;»  59; 

:■  0; 

ali«[6] 

;«  59; 

iw  0; 

ttlia[7] 

;■  99; 
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Echo.Time.InterTal (default ,po8 ,precl8lon) ; 
repeat 

choice  :=  BeadKey; 
if  choice  =  #00  then 
begin 

choice  Beadley; 

if  choice  in  [Up,Dn,Home,Endd,Lt,Rt]  then 
begin 

case  pos  of 

3  ;  Update_Fiold(choice, default. dy,lli«[pos] ,ulim[pos] , pos, 3, precision) ; 

4  ;  Update_Field(choica, default. hr, UimCpos]  ,ulim[po8]  , pos, 3, precision)  ; 
B  ;  Update_Field(choica, default. mi, UiaCpos]  ,ulimCpo8]  , pos, 3, precision)  ; 

6  ;  Update_Field(choice, default. se.UimCpos]  ,ulim[po8]  ,pos,3, precision)  ; 

7  :  Updata_Fiold(choica, default. hu.llimLpos] ,nllm[po8] , pos, 3, precision) ; 
end;  {case} 

Echo.Time_Inter»al (default ,po8 .precision) ; 
end;  {if} 
end;  -{if} 

until  choice  =  *M; 

MakeWindow(rpo8  ,ypo8,  Il!ai(ii+1 , 13) ,  2  .lightgray  .message) ; 
Echo_Time_Inter»al(default ,0, precision) ; 

Hindou(l,l,80,25); 

end;  {Procedure  Input_Time_Inter»al} 

Function  Checksum.Gooddine  :  line_data)  :  boolean; 
var  ,  . 

i, checksum, check.digit  :  integer; 
begin 

checksum  0; 
for  i  :=  1  to^68  do 

case  lineLiJ  of  ,  ,  ^ 

’0’..’9’  :  checksum  :=  checksum  +  Ord(line[i])  -  Ord(’O’); 

:  checksum  ;=  checksum  +  1; 
end;  {case} 

checksum  :=  checksum  mod  10; 
check.digit  :=  0rd(line[69])  -  Qrd(’0>); 

Checksum_8ood  :=  (checksum®  check.diglt) ; 
end;  {Function  Checksums.Good} 


Function  Oood_Elements(line  :  tso.line)  :  boolean; 

Tar 

result  ;  boolean; 
begin 

result  :®  Check8um.Good(lineCl])  and  Checkaum_Good(llne[?.]) ; 
if  (linaCl.li  <>  ’1’)  or 
(line[2,l]  <>  >2>)  or 

(Copy(lina[l],3,6)  <>  Copy(lina[2] .3,5))  then 
result  :=  false; 
if  (line[l,24]  <>  ’.’)  or 
(lino [1,36]  <>  ’.’)  or 
(Copy (line [1] ,62,3)  <>  '  0  ')  or 
(line[2,12]  <>  >.’)  or 
(lino[2,21]  <>  ’.’)  or 
(line [2, 38]  <>  >.>)  or 
(line [2, 47]  <>  >.’)  or 
(line[2,86]  <>  ’.’)  then 
result  :=  false; 

Good.Elements  :®  result; 
end;  {Function  Good.Elements} 


Procedure  Input_SateHite(index  :  aord) ; 
begin 

if  not  E0F(f8at)  then 
begin 

if  data.type  »  3  then 

Readln(fsat,sat.name[index]) ; 
Readln(fsat ,sat_dBta[index,l]) ; 
Rsadln(fsat ,sat.data[index,2]) ; 
and;  {if} 

end;  {Procedure  Input.Satellite} 


Function  Input.Satellite_Data(fn  ;  string)  :  uord; 
Tar 

count  ;  Bord; 
begin 

'f  data.type  in  [2,3]  then 
iegin 

count  :■  0; 

i88ign(f8at .data.driTe  +  data.dir  +  fn) ; 

Reset (fast) ; 
repeat 

count  ;«  count  +  1; 

Input_Satellite(count) ; 
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ontil  EOFCfsat)  or  (coont  >  max.aats); 

Close(f8at}j 

Input.Sat«lllta_Data  count; 
and  {if} 
else 
begin 

GotoIY(l,24); 

VritelnC ’Invalid  data  type!  ’); 

Halt; 

end;  {else} 

end;  {Procedure  Input.Satallita.Data} 

Procedure  Select.SatellitesCtitle  :  string; 

z,7,B,h  ;  byte; 
nunber  ;  word) ; 

var 

choice  ;  char; 

start, stop, select, i  :  uord; 
begin 

Cursor.Off ; 
h  :=  IHin(h, number ) ; 
select  ;=  1; 
s  IHaz(B,12) ; 

Na]ceHindoa(x.y,B,h,uhite,  title); 
start  IMin(numbar  -  h  +  i, select); 
stop  ;=  start  +  h  -  1; 
repeat 
ClrScr; 

for  i  start  to  atop  do 
begin 

0otoXY(l,i-8tart+l) ; 

if  i  »  select  than  TextBackground(blue) ; 
il  selectedCi]  than  Vrite(’[*]  ’)  else  Write(’[  }  ’); 
Vrite(Copy(8at_data{i,l] ,3,6) , ’  ’ ,Copy(8at_nama[l] ,1,b-12)) 

ClrEOL; 

if  i  a  select  then  TextBackground (black); 
end;  {for  i} 
choice  :=  ReadKay; 
if  choice  =  iO  then 
begin 

choice  ReadKey; 
case  choice  of 
Up  :  begin 

select  :•  IHaxd ,selact-l) ; 
if  select  <  start  then 
begin 

start  :«  select; 
stop  ;»  start  +  h  -  1 ; 
end;  {if} 
end;  {Up} 

PgUp  ;  begin 

select  :»  INaxCl .select-h) ; 
if  select  <  start  then 
begin 

start  ;■  select; 
stop  start  ♦  h  -  t; 
end;  {if} 
end;  {PgUp} 

Dn  ;  begin 

select  IHinCnumber .selectet); 
if  select  >  stop  then 
begin 

stop  :■  select; 
start  ;»  stop  -  h  ♦  t; 
end;  {if} 
end;  {Dn} 

PgDn  :  begin 

select  :■  IKia(number,selocteh); 
if  select  >  stop  then 
begin 

stop  :■  select; 
start  :■  stop  ■  h  e  1; 
end:  (if) 
end;  {PgDn} 
end;  {case} 
end  {if} 
else 

case  UpCase (choice)  of 
’  *  ;  begin 

selectedCselect}  ;■  lot(sslectedCselect]); 
select  :■  IHin(number,selectet) ; 
if  select  >  stop  then 
begin 


■top  ;>  tclact; 

■tart  :■  atop  -  h  1; 

•ad;  {if> 

•ad;  tlojgi*} 

’A’  :  b«gia 

for  1  :■  1  to  naabor  do 
■•ItcttdCi]  :•>  lot(a«l«ct«dCi]) 
•ad;  {Toggla  ill} 

•ad;  {cua} 
nntil  choica  •  CR; 

Dal«x(600) ; 

KakaBindoa (x , y , a ,h , 1 ightgr ay , t It la ) ; 

Bindoa(t,l,80,2S); 

aad;  {Procadnra  Salact_Satallitaa} 


Procadara  Iapat..ObsarTar(Tar  aaodatic  :  aactor); 
bagia 

if  aot  EOF(foba)  tliaa 
bagia 

Raadla(foba,oba_aiaa,gaodaticCl] .gaodatictl] ,gaodatic[3]> ; 
gaodatic[l]  :•>  Radiaaa(gaadaticrij} ; 
gaodatic[2l  :«  RadiaBa(Rodulua(gaodaticC2},360)): 
gaodaticL3}  :■  gaodaticC3]*0.001; 

•ad;  {if> 

•ad;  (Procadara  Inpat.Obaaraar} 
bagia 

for  i  :»  1  to  aax.aits  do 
aalactadCi]  :■  falsa; 


and. 
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B.9  SGP_OUT  Unit  Source  Code  Listing 


Unit  SOP.Out; 

{  inthor ; 
{  Original  Varsion: 
{  Currant  Rariaion: 
{  Varsion: 
I  Copyright : 
{$!♦} 


Dr  TS  Kalso  } 

1993  lug  24  } 

1992  Oct  01  } 

1.50  } 

1992,  111  Rights  Rasaraad  } 


IITERFACE 


Usas  SOP_I(ath; 


const 

day.data 

full„tiao 

I-K.B.S 

D-K.S 

tiua.ras 

angla.res 

dist.ras 


:  boolaan  ■  trua; 

;  boolaan  “  trua; 

:  boolaan  ■  falsa; 
;  boolaan  ■  falsa; 
:  byta  -  2; 

:  byta  “  4; 

:  byta  «  3; 


font  :  taxt; 

Procadura  Output.TiaaCtiaa  :  doubla) ; 
Procadura  Output .ECKtiaa  :  doubla; 

poB.Tal  :  ractor); 

Procadura  Output.inglaCangla  ;  doubla; 

aidth.dac  :  byta; 
dagraas  :  boolaan) ; 

Procadura  Outpnt_LatLonllt(tima  :  doubla; 

gaodatic  :  aactor) ; 
Procadura  Output .Obs(t 1m  ;  doubla; 

obs  :  aactor) ; 

Procadura  Output. RlDocCtiaa  :  doubla; 

obs  :  aactor) ; 


IMPLEREITITIOI 

Usas  Support ,SQP.Init ,S0P.TlMa, Solar; 

Procadura  Output. Tiaa(ti»a  :  doubla); 
bagin 

if  day.data  than 
bagin 

VritaCfout ,Calandar.Oata(tiaa) , >  *) ; 

VritaCfottt ,Tuia.of.0ay(ti»a,full.tiaa,ti«a.r4s)); 
and  {if) 

alsa 

Vrita(fout ,tiaa; 16:8) ; 
and;  (Proc:'dura  Output.Tlaa) 

Procadura  Output. ECKtlM  :  doubla; 

pos.aal  :  aactor); 

*ar 

i  :  byta; 
bagin 

Output.Tlaattlaa); 
for  I  :■  1  to  3  do, 
writa(fout .pos U] : 11 ;3) ; 
for  i  :■  1  to  3  do 
»rita(fottt.aalCl]:ll:6): 

;f  shos  ais  than 
if  aclipsad  than 
tfritalntfout,’  tCl>) 
alsa 

Writalnlfout.'  •) 

alsa 

Vritaln(foot) ; 
and;  (Procadura  Output. ECl) 

Procadura  Output.lnglaCangla  ;  doubla: 

aldth.dac  :  byta; 
dagraas  :  boolaan) ; 
aar 

asign  :  short int; 

dag.ain.sac  :  longint; 
tap  :  doubla; 

bagin 

if  dae  >  4  than 
dac  :•  4; 
if  O.h.S  than 
bagin 

asign  :>  SignCangla); 
aagla  :■  IbaCangla); 


case  dec  nf 
0  ;  begin 

angle  Modulus(angls  +  0.8,360); 
deg  asign*Trimc(augle) ; 
end:  {0} 

1  ;  begin 

angle  ModulnsCimgle  +  1/12,360; 
deg  :=  Trunc (angle) ; 
min  Trunc((angle  -  deg)  *  6)*10; 
deg  ;=  asignedeg; 
end;  {1} 

2  :  begin 

angle  HodnlnsC angle  +  1/120,360); 

deg  :=  Trunc(angle); 

min  :■=  Triinc((angle  -  dag)  ♦  60); 

deg  asignedeg; 

end;  {2} 

3  :  begin 

angle  :=  HodulusC angle  +  1/720,360); 

deg  ;=  Trnnc (angle); 

tmp  :=  (angle  -  deg)  *  60; 

min  :=  Trnnc (tmp); 

sec  ;=  Trunc(Frac(tmp)*6)*10; 

deg  asignedeg; 

end ;  {3} 

4  :  begin 

angle  ;=  Hodulus(angle  +  1/7200,360); 
deg  :=  Trnnc ( angle ) ; 
tap  (angle  -  deg)  e  60; 

min  ;=  Trnnc (tmp); 

sec  :=  Tmnc(Frac(ti^)*60) ; 

deg  :=  asignedeg; 

end;  {4} 
end;  {case} 
if  degrees  then 
case  dec  of 

0  :  Vrite(fout ,deg;sidth, ”) ; 

1,2  :  Write(fout  ,deg;Bidth,  ”  ,TwoDigit(min) ,  ”  ”) ; 

3,4  :  Write(fout ,deg:Bidth, ’ ’ ,T8obiglt(mln) , ” ” ,TBoDigit (sec) , >" >) 
end  {case} 

else 

case  dec  of 

0  ;  Hrlta(font,deg;width, ’h’) ; 

1,2  :  Hrite(fout,deg;Bidth,’h',TBoDigit(min),’B’); 

3,4  :  Writ e(f out ,deg:Bidth, 'h’ ,TsoDiglt (min) , ’m’ ,TwoDigit (sec) , ’s’) 
end  {case} 
ere  (if) 
else 

if  dec  »  0  then 
Wr it 0 (font .angle :Bidth:0) 
else 

Wr lte(f out, angle ;Bidth+dac+l  ;dec) ; 
end;  (Procednro  Ontput.Angle} 


Procedure  Oatput.LatLonAlt(time  ;  double; 

geodetic  :  rector); 

begin 

Otttpat_TiBe(tlBe} : 
if  I.K.W.S  then 
begin 

Output. lngle(Abs (Degrees (geodetic  Cl] )) ,6,angls_res,true}; 
if  geodeticCl]  >»  0  then 
Write(fout,’  I') 

else 

Write(fout,’  S’); 
it  geodetic [2]  >  pi  then 
geodetic [2]  :*  geodetic [2]  -  teopi; 
0utput.4ngle(Abs(Degrees(gaodeticC3])) ,6,Bngle.res,true) ; 
if  geodetic [2]  >■  0  then 
Write(fout,»  B’) 
else 

Write(fout.’  «’); 


end  (if) 

else 

begin 


Output.Angle(Oegress(geodet  icCU)  ,6,angle.(es,tme>; 
0utput.tngle(Degrees(geodeticC2])  ,6,angle_res.tme) ; 


end;  {if} 


Urite(fout ,geodeticC3] :1S :3); 
if  show  ris  then 
if  eclipsed  then 
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Writeln(fout,>  ECL») 
else 

Writeln(fout , ’  ’) 

alse 

Wrltaln(fout) ; 

and;  {Prooadute  Oatput.LatLonAlt} 

Procadure  Output .0b8(tlma  ;  doubla; 

obs  :  vactor); 

const 

first  ;  boolaan  =  falsa; 
bagin 

if  not  visible  then 
begin 

if  first  than  Vriteln(fout) ; 
first  :=  false; 

Exit ; 
end;  {if} 
first  :=  true; 

Output.TiaeCtiae) ; 

Write(fout,Copy(obs_name,l ,3) :6) ; 

Writeln(fout .Degrees (obs [1] ) :angie_re8+6:angle_ras, 
Degrees ( obs [2] ) : angle. res+S ; angle.r as , 
ob8[3] ;di8t_res+8:di8t_re8, 
obs [4] ;di8t_res+8:di8t_ra8+3) ; 
end;  {Procedure  Output.Obs} 

Procedure  Output ..RlDec(tiae  ;  double; 

obs  ;  vector) ; 

const 

first  :  boolean  =  falsa; 
begin 

if  not  visible  then 
begin 

if  first  then  Vriteln(fout) ; 
first  :=  false; 

Exit ; 
end;  {if} 
i;rs‘  :=•  true; 

Output.' iBe(tiae) ; 

Hrite(fout  .CopvCobs.naBe.l ,3) ;S) ; 

Out put .Angle (Degree  s(obaCl3)/lS,4, angle. res , false ) ; 
Output. AngleCDegreesi  ''bs[2])  .S.angle.res.true) ; 
Vriteln(fout) ; 

end;  {Procedure  Output.RADec} 
end. 


B.IO  SGP_OBS  Unit  Source  Code  Lisliny 


Unit  SOP.Obs; 

{  Author; 
{  Original  Voraion; 
{  Currant  Soriaion: 
{  Vara ion; 
I  Copyright ; 
{$•+} 


Dr  TS  Kalao  > 

1993  Jun  03  } 

1993  Sap  38  } 

1.40  } 

1992,  ill  kighta  kaaaraad  > 


IITEkFkCE 
Uaaa  SOP.Hath; 


Procadura  Calcnlata.Uaar.PoaVaKTar  gaodatic  ;  aactor; 

tiaa  :  doubla; 

*ar  oba.poa.oba.tal  ;  aactor); 
Procadura  Calcnlata.LatLonAltlpoa  ;  aactor; 

tiaa  :  donbla; 
aar  gaodatic  :  aactor); 

Procadura  Calcnlata_Oba(poa,aal, gaodatic  :  aactor; 

tiaa  :  doubla; 
aar  oba.aat  •  aactor); 

Procadura  Calculata.kADac(poa,aal,gaodatlc  ;  aoct-^r; 

tiaa  ;  duubla; 
aar  oba.aat  :  aactor); 


IHPLEKKmTIOl 

Uaaa  SOP_Intf.SOP.lnit.SCP.Tiaa; 


Procadura  Calculata.Uaar.PoaVaKaar  gaodatic  :  aactor; 

tiaa  :  doubla; 

aar  oba.poa.oba.aai  :  aactor); 

{  kafaranca:  Tba  1993  iatroaoaical  Alaanac.  paga  kll.  ) 
conat 

af actor  ■  taoplaoaaga.E/aacday ; 
aar 

lat .Ion, alt , 

thata.c .a.achcp  :  doubla; 
bag  in 

lat  :■  gaodatic(t) ; 

Ion  : ■  gaodat ic(3] ; 
alt  : *  gaodat ic(3) ; 

thata  ;•  RoduluadhataO.lOdiaa)  *  loa.taopi). 

gaodatic(4}  ■  thata;  (UST) 

c  a  l/Sort(l  •  fa{f  -  3)aS«jr<SU(iat))). 

a  .»  S<jrU  -  f)»<; 

ackcp  ’«  (akaparac  *  alt)aCoa(lat). 

oba.poa(l)  :■  achcp«Coa(thata> ,  (kiloaMlarr) 

oba.poalk)  a  achcpaSinCtbata) , 

eba.poa(3]  a  likBparaa  *  alt>aSin(lat), 

oba.aalUl  *  *«(actaraaba.poa(3] ;  (kilaaalaao/aacaail) 

oba.aaltoi  a  ■factoraoba.paalsl; 
eba.aattS)  •  0. 

lUgaituda(oba.pon) . 

Nagaitudaloba.aat) . 

and.  (Procadura  Calculata.Uaar.PoaVal) 


Procadura  Calcalata.LattaaAlt (p«a  aactor. 

tiaa  doubla. 
aar  gaodat tc  aaclar). 

(  tafarauca  Tha  IM3  iatraboulcul  Atmaaac.  paga  tll  ) 

lat .lau.alt , 

ikaia.r.aj.^t.c  daubta. 
bag  in 

thata  a  AcTa«(paa(3l .paa(i ]) . 

lea  •  godntual thata  -  TbataO,  10(t  iiM)  .tuapi) . 

r  «  bi|rt($<tr(fa«(i])  •  bdt(pua(3))). 

aJ  a  toil  -  f). 

lat  a  A<Tak(paat3}.t>. 

rapaat 

fil  o  jat. 

c  •  l/9^rt(l  -  a2*$^r(Slu'pki)>>. 
lat  •  k<T«<(paa(.1)  *  akuparocaaJaStotpbtl.r). 
uctil  AbalUl  '  pbU  t  tC'IO. 
all  «  r/Ccadat)  *  ikapar*< . 
gaadatU(t)  *  lat.  (radluua) 

gaadattci?}  «  laa.  (radiaaa) 

gaadaticl.tj  *  all.  (kilo»ataru) 

gaadaticid)  *  thata.  (radlaua) 
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•ad;  (Proc«dttr«  C<lcttlat*_L«tLoailt) 

Procadar*  Calci>lata.Ob«(po«,v«I,g«odatic 

tiaa 


•I 


far  obs.aat 
iatagar; 


vactor; 
doubla; 
aactor) ; 


lat,l9a,alt,thata, 

•ia.lat.coa.lat . 

•in.thata.cos.tiiata  :  doabla; 

•l.azia  :  doabla; 

top_a,top.a,top.z  :  doabla; 

oba.poa .oba.val , 
raBga,rgTal  :  aactor; 

bagia 

Calcalata.Uaar.PoaVal(gaodatlc,tiBa,oba_poa,oba.aal) ; 
for  i  1  to  3  do 


poa[i]  -  oba.poa Ci]; 
■  aal(l}  -  oba.aal[i]; 


{laUtalk  (radiaaa)t 
fK'liraatioa  <ra4ia«a)) 
(ftOiitga  (bitoMtara)) 


bagia 
raagad] 
rgaalCiJ 
•ad;  {for  i) 
tlagBitoda(raaga) ; 
lat  ;■  gaodatictl} ; 
loa  ;■  gaodatlc[2]; 
alt  :■  gaedatlcis]; 
tbata  :■  gaodaticCd] ; 
aia.lat  :■  Siadat); 
coa.lat  :■  Coadat); 
aia.thata  :•  SiaCtbata); 
eoa.tbata  :■  Coa(thata); 
top.a  :■  aia.latoeoa.tbataoraagaCl] 

*  aia.lataala.tbataaraagaUi 
'  eea.lataraBga(3] ; 

top.a  :■  -ala.lkalaoranga[0 

*  «oa,tkataoraaga[2] ; 
top.a  :•  «oa,lat*coa.thata*ra*ga(l) 

*  toa.lat*ala.tkata*t<i  .ga(2j 

*  aia.lataraagaO} ; 

aalai  :*  ircTaaC-tap.a/tep.a);  {taimtk} 
if  top.a  >  0  ikaa 
aata  :•  asia  *  pi; 
if  aaia  <  0  tkaa 
asia  :•  asia  *  taapl: 

•1  ;•  kre$ia(tap.a/raaga(4)); 
eka.aatCt]  aaia; 
oka.aatdi  :•  ol; 
eka.aaiCdl  :•  ra»ta(4). 

oka.fotid)  :o  0*t(raaga.rgval)/raBga(4) ;  (taaga  kata  (kiiaaatara/aocead)) 

{  Carractiaaa  («r  alaoopkaric  rafrattiaa  } 

<  kafotoaca.  katroaaaicai  klgaritkaa  kf  laaa  Raaaa.  pp  lOi'tOd  } 

{  tala  Carfo«ti«a  ia  aaaaiagtaaa  akaa  appataat  alaaaitaa  ia  kalaa  kariaaa  ) 
•ka.aat(2)  -•  aka.aaiCkJ  • 

kadtaaaid  03/Taa(ka4iaaa(Dagroaa<allal0.3/(i>agraaa(al)ai. 
if  akf.falttj  y  0  Ikaa 
aiatkU  •  inaa 
aiaa 
bagia 

•ba.aait2)  a  al.  tkaaal  la  iraa  wlaaaliaal 
aiaibla  •  falaa. 
aad,  tataa) 

aad.  (Pratadara  Catcatala.tba) 

Pfacadara  Calaataia,kkOa<(paa.aal.gaa4all<  aatiar. 

liaa  daakla, 
aar  cba.aal  *a<laf). 

(  karai«a<a  galkada  at  Otbil  Oatanaiaatiaa  bp  Padra  kaOMa  k»<abat.  pp  401*4921 

aaa 

pbl.lkala. 

•  la.lkala.icaa  ifcaia. 
aia.pki  .taajwi. 

a*. a?  . 

t-ak.ipk.tsk, 

$a.t*.2a. 

tp.kp.kp- 

Ss.ga.M. 

La,Lp.i.a. 

«;=»a.4alia. 

•ia.aipka.iaa.alpka  daabla, 
bagia 

CaJaaiala.Obatpaa.aal  .gaadalU.l  taa.aba.eal). 
if  aiaibSa  Ikaa 
bagia 


az  :=  obs_set[l] ; 
el  :=  obB_set[2]; 
phi  ;=  geodeticCl]; 

theta  ;=  Hadttlns(Theta6.JD(tine}  +  geodetic[2] ,tBopl) ; 

sin.theta  Sin(theta); 

cc's.theta  ■=  Cos(theta); 

sin.phi  ;=  Sin(phi); 

cos.,phi  :=  Cos(phl); 

Lih  ;=  -Cos(az)*Co8(el) ; 

Lyh  :=  Sin(az)*Co8(el} ; 

Lzh  ;=  Siii(el); 

3i  ;=  siii_phi*cos_theta; 

Ei  -ein.theta; 

Zi  ;=  co8_thata*co8_phi; 

Ey  :=  sin_phi*sin_theta; 

Ey  :=  coB.theta; 

Zy  ;=  sin_theta*coa.phi; 

Sz  :=  -cos.phi; 

Ez  ;=  Oj 
Zz  :=  8in„phi; 

Lx  :=  Sz*Lzh  +  Ex*Lyh  +  Zx*Lzh; 

Ly  :=  SyeLxh  +  EyeLyh  +  Zy*Lzh; 

Lz  ;=  3z*Lxh  +  Ez*Lyh  +  Zz*Lzh; 

;=>  ircSin(Lz)  ;  {Declination  (radians)} 

■*  SqrtCl  -  Sqr(Lz)); 

=  i.y/cos.delta; 

“  Li/co3_delta; 

lcTan(8ln_alpha,cos_alpha) ;  {Right  Ascension  (radians)} 
Hodulns(obs_set[l] .tBopi) ; 


ob8_set[2] 
co8_delta 
sln_ alpha 
cos.alpha 
obs.setCl] 
ob8_8et[l] 
end;  {if} 
end;  {Procedure  Calculate.RlDec} 


end. 
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B.ll  SOLAR  Unit  Source  Code  Listing 


Unit  Solar; 

{  lathor : 
{  Original  Varsion; 
{  Current  Revision: 
{  Version: 
{  Copyright : 
{$!+} 


Dr  TS  Kelso  } 

1990  Jttl  29  } 

1992  Sep  30  } 

1.20  } 

1390-1992,  All  Rights  Reserved  } 


IITERFACC 
Uses  SQP.Kath; 


const 

eclipsed  :  boolean  ^  false; 
shos.vis  :  boolean  false; 


civil, 

nautical, 

astronovical  -  double;  {Teilight  elevations} 
solar .pos  :  vector; 

Procedure  Calculate.Solar.PositionCtiae  :  double; 

var  solar.vector  :  vector) ; 
Function  Oepth.of.EclipseCtiBO  :  double; 

rl  :  vector)  :  double; 

IRPLEKEITATtOI 
Uses  SOP.Intf .SQP.Tiae; 


const 

sr  =  696000.0;  {Solar  radius  -  kiloaeters  (liU  76)} 

AU  e  1 . 49S97870E8 ;  (Astronoaical  unit  -  kiloaeters  (lAU  76)} 


Procedure  Calculate_Solar_Positton<tiae  :  double; 

var  solar.vector  :  vector); 

var 

ajd.year ,T,H,L,e,C,a,l.ta,ntt,R,eps  :  double; 
ob  :  vector; 

begin 

:»  time  -  241S020.0; 
year  :•  1900  ajd/36S.3S; 

T  :■  (»jd  ♦  0elta.ET(year}/«ttcday}/'36S2$.Q; 

H  :e  Radiaas(Ko<iulus(368. 47683  e  Rodulus{3S999.049?S*T, 360.0) 
-  (O.OOOtSO  ♦  0.0000033eT)*S^r<T) .360.6)); 

L  :■  R4dians<Kodttlu8(a79, 69668  ♦  «odulas{3«.Cl0O.76«92»7, 360.0) 
♦  0.000302S«Sqr(T) ,360.0)); 


e  .«  0.0167bt04  -  (0.0000418  ♦  0. 000000 126eT)v7j 
C  :•  Rad lane ((1,919460  -  (0  004789  ♦  0-000014eT)»I)eSin(R) 

♦  (0.020094  -  0.0OOlQ0»l)*Stn(2»R)  ♦  0.t>00293<Sin(3»ll)); 

0  :■  8adiaas{Rodulua(2S9.I8  -  1934. 142*T. 360.0}) ; 

Laa  :=  Hoduittsd  ♦  C  -  Radians<0. 00569  -  e.00479eSinCe)).t«fopi)  ; 
ns  ;«  Kc-iulusdl  ♦  C.tKopv); 
t  :■  1  00000024 fl  -  Sq:(e))/(1  ♦  evCsslnu)); 


eps  :•  Radians(23.4S2294  ••  (0.0)30125  ♦  (e.OOOOOJ.64  -  0.000000503«T)eT)*T 
♦  0.00256eCe8(0)); 

*  :•  AUvR; 

soler.vectorCll  : o  RvCosCLse) ; 
solar.veetorfaj  «  i*SiR(Ls*}*Cee(ep«) ; 
soler.vector(3)  ;«  R*$in(t.sa)*Sla(»ps) ; 

<*ol*r.veetor{4)  :•  R: 

end;  {Procedure  Calculete.5oltr.Pouiti.oa} 


Fttncl&ee  Eloptli.oI.£clipse(ti«e  :  double; 

rl  :  vector)  :  double; 
ver 

vl.ri,rl,f2.r2.r2,k.d,ds  uoubU; 
r2  ;  vortor; 

bogl«- 

Rtgaitudelrl) ; 

lelcuUte.bolsl.Poeit  i.«n(t  tae,r2); 
eolei.poa  :*  r2. 

rl.rl  .»  S<ir{rl(4)); 
rl.rj  -■«  -0ot(rl,r2); 
r2.r2  •  S!,f(f3(4}); 
k  •  rl.r2/r2.r2; 

(Calculete  perpendlculer  distance  froei  entl-solar  vector) 
d  .*  S<irt(rl.rl  -  S<)r(rl.r2)/r2.r2). 

{Ctlcultto  sbtdov  distance  do) 
ds  .»  tkaper  ♦  k  •  (sr  -  tkaper); 

(tf  d  <  de,  then  satellite  ie  in  eclipse) 
i(  (k  >  0)  end  (d  <  ds)  then 


IMl 


«clip8«d  ;>  tm* 
alae 

aclipsad  falia; 
Dapth.of.Eclipsa  d  -  ds 
and;  {Function  Dapth.of.Ecllpsa} 

bagin 

ciail  ;«  Eadian8(-6) ; 

nautical  :«  Radians(-12) ; 

astrononical  Radians(-18) ; 

and. 


B.12  MINMAX  Unit  Source  Code  Listing 


Unit  MlnNax; 

{  Author : 
{  Original  Varsion; 
{  Currant  Revision: 
{  Version: 
{  Copyright : 
{$!+} 


Dr  TS  Kelso  } 

1992  Jun  29  } 

1992  Sep  03  } 

1,02  } 

1992,  All  Rights  Reserved  > 


IITERFACE 


Function  IMin(argl,arg2  :  integer)  :  integer; 
Function  IMax(argl,arg2  :  integer)  :  integer; 
Function  RHin(argl,arg2  :  real)  :  real; 
Function  RIIaz(argl,arg2  :  real)  :  real; 
Function  DMln(argl,arg2  :  double)  :  double; 
Function  DMax(argl,arg2  :  double)  :  double; 

IHPLEHEITATIOI 


Function  IMin(argl,Brg2  :  integer)  :  integer; 
begin 

if  argl  <  arg2  then 
IHin  argl 
else 

IHin  :=  arg2; 
end;  {Ftuiction  IHin} 

Function  IHax(argl,arg2  :  integer)  :  integer; 
begin 

if  ar^i  >  arg2  then 
IMax  argl 
else 

IMax  :=  arg2; 
and;  {Function  IHaz} 

Function  RIIln(argl,arg2  :  real)  :  real; 
begin 

if  argl  <  arg2  then 
RMin  :«  argl 
else 

RHin  :“  arg2; 
end;  {Function  RMin} 

Function  RHaxCargl ,arg2  :  real)  :  real; 
begin 

if  argl  >  arg2  then 
RNax  argl 
else 

RMax  :*  arg2; 
end;  {Function  RMax} 

Function  DHlnCargl ,arg2  :  double)  :  double; 
begin 

if  argl  <  arg2  then 
DMin  :=  argl 
else 

DM in  arg2; 
end;  {Function  DHln} 

Function  DNax(argt,arg2  :  double)  :  double; 
begin 

if  argl  >  arg2  then 
DMax  :“  argl 

else 

DMax  arg2; 
end;  {Function  DMax} 


end. 
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Appendix  C.  TRUTH  MODEL 


C.l  HPOPJN  Source  Code  Listing 


Program  HPOP.Input ; 

{  Author : 
{  Original  Version; 
{  Current  Revision: 
{  Version: 
{  Program  Information: 


{$!+} 

Uses  CRT, Support. 
SaP_Init,SQP_In, 
SGP_Con» . 

S0P_Hath , SGP.Time , 
SGP4SDP4: 


Dr  TS  Kelso  } 

1992  lug  20  } 

1992  Oct  14  } 

2.25  } 

Convert  tso-line  element  sets  to  state  vectors 
for  input  to  HPOP/SAH.  } 


var 

timei,times,timee  :  time.set; 
jel,je2  :  double; 

sat_pos,sat_val  :  vector; 

fni,fno  :  string; 

fi  :  text; 

Function  BPOP_Time(tm  :  time.set)  ;  string; 
begin 
with  tm  do 

HPOP.Time  :=  TBoDigit(yr  div  100) 

+  TBoDigit(yr  mod  100) 

+  TBoDigitCmo) 

+  TBoDlgit(dy) 

+  TBoDigit(hr) 

+  TBoDigit(mi) 

+  TBoDiglt(ae)  +  > . > 

+  TBoDiglt(htt} ; 
end;  {Function  HPQP.Time} 

Function  HPOP.ETimeC je  ;  double)  :  string; 
var 

time  :  double; 
edate  :  date; 
begin 

edate  ;=  Calsndar_Date( je) ; 

Bith  timee  do 
begin 

yr  :=  Integer.Value(edate,l ,4) ; 

mo  :=  Pos(Copy(edate,6,3) , ’  JanFebHarAprHayJunJulAugSepOctlovDec’)  div  3; 

dy  ;=  Integer_Value(sdate,10,2) ; 

time  ;=  24*Frac(jo  +  0.6); 

hr  ;=  Trunc(time); 

time  :=  60*(tlme  -  hr); 

mi  ;=  Trunc(time); 

time  ;=  60*(tlme  -  mi); 

se  :=  Trunc(timo); 

hu  ;=  Trunc(100*Frac(timo)) ; 

end;  {Bith} 

HPOP.ETime  ;=  HPOP_Time(timae) ; 
end;  {Procedure  Convert.Time} 


Procedure  Output.HPOP; 
var 

i  :  byte; 
int  :  double; 
fo  ;  text; 
begin 

Asslgn(f o , Bork.dr ive+Bork.dir+fno) ; 

ResriteCfo) ; 
for  i  ;a  1  to  3  do 
Writeln{fo,1000*8at_po8[l] ; 12:3) ; 
for  i  ;»  1  to  3  do 

Writeln(fo,1000*set_val[i] ;16;6) ; 

Bith  times  do 

int  :»  hu/100  +  se  +  (mi  +  (hr  +  (24edy))»60)*60; 
Hriteln(fo,int:12;3) ; 

Writeln(fo,HPOP.ETime(jel)) ; 

Bith  timei  do 

jo2  jel  +  dy  >  Fraction_of.Day(hr ,mi ,ss,hu) ; 
Writeln(fo,HPOP.ETime(jel)) ; 
Writeln(fo,HPQP.ETime(je2)) ; 


Writeln(fo,>0.01'); 
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Close (fo) ; 

end;  {Procedure  Output.HPOP} 

BEOIB 

PrograB_Initialize(’HPOP-II’) ; 

ShoB_Status_Line(’Select  input  t«o-line  elements’): 

SlioB_Instructions(’<’tUpDown+’  to  select,  EITER  when  done>’); 

fni  :=  Select_File(*T»o-Line  Elements’ ,data_driTe+data_dir+’*.2LE’ ,40,2,19,6) ; 
Assign  (fi,data_drlTe')'data_dir+fnl) ; 

Reset (fi) ; 

Zero_Time(timei) ; 

Zero  TimeCtimes) ; 
timei.dy  :=  60; 
times. mi  5; 

ShoB_Status.Line(’Time  interval  from  epoch’); 

ShoB_Instructions(’<’+cursors+’/Home/End  to  select,  EITER  shen  done>’); 

Select  Time_Interval( ’Time  Interval’,40,9,timei,7) ; 

Clear.Status.Line ; 

ShoB_Status_Line(’ Output  time  step’); 

ShoB.InstructionsC ’<’-t’cursors+ ’/Home/End  to  select,  EITER  Bhen  done>'); 
Select.Time.IntervaK’Time  Step’ ,40, 13, times, 7); 

Clear.Status.Line; 

flotoXY(l,24); 

repeat 

Mark.Time; 

Readln(fi,sat_data[l,l]) ; 

Readln(fi,sat_data[l,2]) ; 

fno  :=  ’SV-’  +  Copy(8at_data[i,l] ,3,5) 

+  ’.’  +  ThraeDigit(Integer_Value(sat_datBCl,l] ,66,3)) ; 
Convert_Satellite_Data(l) ; 
jel  :=  Julian_Date_of_Epoch(epoch) ; 

SQP( jel ,8at_po8,8at.val) ; 

Convert .Sat.StateCsat.pos ,sat.vel) ; 

Output. BPQP; 
until  EOF(fi); 

Close(fi) ; 

EID. 
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C.2  HPOPJN  Output/HPOP  Input  File  Format 


ECI  Position(x) 
ECI  Positionfyj 
ECI  Position(z) 
ECI  Velocity(x) 
ECI  Velocity(y) 
ECI  Velocity(z) 
Step  Size 
Epoch  Time 
Start  Time 
Stop  Time 
Area-Mass  Ratio 


Initial  Position(meters) 


Initial  Velocity  (meters/second) 


Propagation  step  size  (seconds) 

Epoch  time  of  the  position  (YYYYMMDDHHMMSS.SSS) 
Propagation  start  time  (YYYYMMDDHHMMSS.SSS) 
Propagation  stop  time  (YYYYMMDDHHMMSS.SSS) 
Area  mass  ration  of  the  satellite  (m’/kg) 


C.3  Sample  HPOPJN  Output/HPOP  Input  File 
File:  SV- 19859. 147 


-7S75194.314 

-1791719.890 

9.481 

-75.291742 

-618.161792 

7868.435726 

300.000 

19900302075911.43 

19900302075911.43 

19900502075911.43 

0.01 


C.4  Sample  HPOP  Output/CONVERT  Input  File 


FILE:  PV-19859.147 


Tims  PosltionCx)  PositionCy) 

19900302078911.43  -7676194.31400  -1791719.89000 

19900302080411.43  -7314412.61196  -1907912.86617 

19900302080911.43  -6627644.78443  -1887036.66329 

19900302081411.43  -6309821.98319  -1741846.94718 

19900302081911.43  -3779138,83937  -1494310.16383 

19900302082411.43  -2062321.28041  -1169644.27783 


PosltlonCz)  Vslocityti)  VslocitT(y) 
9.48100  -76.29174  -618.16179 

2331213.46869  1787.88726  -168.40460 
4496446.34278  3403.31636  287.14663 

6367469.24499  4647.97494  668.23762 

7866660.24878  6490.94681  967.76236 

8962430.39496  6964.13216  1183.06842 


19900602073411.43  -8749947.01736 

19900602073911.43  -8037873.88468 

19900602074411.43  -7079394.34900 

19900602074911.43  -6924349.23870 

19900602076411.43  -4618269.12963 

19900602076911.43  -3202624.68393 


-800119.68736 
-890440.06104 
-963664. 66123 
-990274.92476 
-1001824.01191 
-989663.66330 


6088236.46983 
6760184.84992 
8226888.43876 
9464060.80267 
10461703.70189 
11 21 1748. '10762 


1904. 16474 
2813.11029 
3849,03791 
4126.98788 
4668.31168 
4868.93881 


-346.79907 

-266.42774 

-168.80210 

-79.68869 

1.87721 

78.30139 


time: 

position: 

velocity: 


in  YYYYMMDDHHMMSS.SSS  Imrmat 
in  meters 

in  meters  per  second 


ValocltyCz) 

7868.43872 

7678.49848 

6784.48618 

8646.17234 

4331.69393 

2976.18718 


6884.16606 

6244.07122 

4616.64102 

3731.70628 

2916.46436 

2083.26883 


C.5  CONVERT  Program  Source  Code  Listing 


Prograa  Convert; 

{  Author : 

{  Original  Version: 

{  Current  Revision: 

{  Version: 

i  Program  Information: 

{$»+} 

Uses  CRT , Support , 

SGP_Init,SGP_In, 
SGP_Math,SGP_Time, 
SGP_0bs, Solar; 


Dr  TS  Kelso  } 

1992  Jul  22  } 

1992  Oct  16  } 

2.03  } 

Convert  state  vectors  to  observations. 


const 

max.sites  =  100; 


first, 

limits, dark  : 

i,nr„8ite8  : 

yr,mo,dy, 
hr,mij,8e,hu  : 

tine,DoE  : 

ob8_po8,ob8_vel, 
ob8_0et , 
solar.obs, 
8at_po8,8at_vel  : 
min_range , 
max_range , 
min_0l , 
nax_el , 

azl,az2  : 

8ite  : 

8ite_de8  : 

hl,h2  : 

tm  : 

name, buffer  : 

fnl,fn2,fn3,fn4  : 
fi2,fo,fi4  : 


boolean; 

byte; 

word: 
double ; 


vector ; 


array  [1. .max_8itea]  of  double; 
array  [1 . .nax.sites]  of  vector; 
array  [1 . .max.sitea]  of  8tring[3]; 
8tring[2] ; 
string [18] ; 

8tring[26] ; 

string; 

text; 


Procedure  Convert.TimeCtm  :  string; 
var  yr,no,dy,hr ,mi,se,hu  :  eord); 
begin 

yr  :=  Integer_Value(tm,l ,4) ; 
mo  :=»  Integer_Value(tM,6,2) ; 
dy  :««  Integer_Value(tm,7,2) ; 
hr  Integer_Value(tm,9,2) ; 
mi  :•*  Integar_Value(tn,ll  ,2)  ; 
se  :»  Jnteger_Value(tm,13,2) ; 
hu  :■  Integer_Value(tm,16,2) ; 
end;  {Procedure  Convert .Time} 


Procedure  Output.Data(arg  :  byte; 

time  :  double; 
obs.Bst .satpos  :  vector); 

begin 

Writeln(fo,8ite_de8[arg] , ’ 
time;16:8,’ 

DegreesCobs.setCl) ) :7:3,  ’  ’, 

Dagree8(ob8_8et[2]) :7:3,  ’ 
obs.setCS]  :9:3,  ’  ’, 

ob8_8et[4] :9:3, ’ 
sat, po8[l]  :  10:3,  ’ 

8at_po8[2]  :  10:3,  ’ 
sat  .posts]  :  10:3)  ; 
end;  {Procedure  Output.Data} 

Function  Chock. Limits (obs  :  vector; 

arg  :  byte)  :  boolean: 
var 

good  :  boolean; 
begin 

good  :»  visible  and 


(obB[3]  >»  Bin_range[arg])  and 
(ob8[3]  <«  ■ax_range[arg]) : 
if  good  then 
begin 

obsCl]  :■  Degrees (obsCl])  ; 
obsC2]  Degrees  (obs  [2])  i 

if  (az2[arg]  >  azl[arg])  then 
good  (obsCl]  >»  azlCarg])  and 

(obs[l]  <=  az2[arg])  and 
(obs[2]  >“  ain.elCarg])  and 
(ob8[2]  <•>  aax_el[arg]) 

good  :=  (((obsCl]  >>•  azlCarg])  and  (obsCl]  <“  360))  or 
((obsCl]  >■  0)  and  (obsCl]  <“  az2Carg])))  and 
(ob8C2]  >”  min.elCarg])  and 
(obsC2]  <■  Bax.el  Carg] ) : 
if  not  good  and  (nax.elCarg]  >  90)  then 
begin 

if  obsCl]  >  180  then 
obsCl]  obsCl]  -  180 

obsCl]  obsCl]  +  180i 
ob8C2]  180  -  obsC2]; 
if  (az2Carg]  >  azlCarg])  then 
good  ;»  (obsCl]  >=  azlCarg])  and 
(obsCl]  <=•  az2Carg])  and 
(ob8C2]  <=  aar.elCarg]) 

good  :=  (((obsCl]  azlCarg])  and  (obsCl]  <=  360))  or 
((obsCl]  >■  0)  and  (obsCl]  <“  az2Carg])))  and 
(ob8C2]  <»  ■ar_elCarg]) : 

end!  {if} 
end;  ^if} 

Check.Liaits  :=»  good; 
end;  {Function  Chock.Linits} 

BEGIN 

PrograB_Initialize( ’CONVERT’) j 
if  ParaaCount  >>•  1  then 
fn2  :■  ParaaStr(l) 

fn2  :■  Select_File( ’Input  SVs ’ ,data_drive+data_dir+’PV-*.* ’ , ” ,40, 1 ,20,6) ; 
Assignd i2,data_drive+data_dir+fn2) ; 

Reset (fi2) ; 

if  ParaaCount  ■  2  then 
fnl  :■  ParaBStr(2) 
else 

fnl  :»  Select_File( ’Observation  Sites’ ,data_drive+data_dir+’*.0BS’ ,”  ,40,8,20,6) 
fn4  :■  Oopydnl ,  1  ,Pos(  ’ .  ’  ,fnl))  ♦  ’LIH’j 
if  File_E*ists(data_drive+data_dir*fn4)  then 
begin 

Assignlf  i4,data_drive'*’data_dir+fn4) ; 

Reset (fi4) : 

Readlnd  i4) ; 
liaits  true; 
end  {if} 
else 

Units  :>  false; 

QotoXY(1.24); 

Cursor.Off ; 

Assignffobs  ,data.drive'Hiata.dir'*'fnl) : 

Reset (fobs) ; 
fn3  fn2; 
fn3Cl]  'O’; 

fn3C2]  'B'; 

i  :•  0: 
repeat 

1  i  +  1; 

Input_0bservor(site[i] ) ; 
slte.desCi]  ;■  Copy(obB_naae, 1 ,3) ; 
if  limits  then 

Readln(fi4, buffer, ain.rangeCi] ,Bax_r8nge[i] . 

ain.elCi]  ,aax.elCil  ,astCi]  ,az2[i]) : 


( 


until  EOFCiobs); 

Close (lobs) ; 

11  Units  then 
Clo8e(li4); 
nr_site8  :»  ij 

Assign (1 o , Bork_dr ive+Bork_dir+ln3) ; 

Rewrite (lo) ; 
repeat 

Readln(li2,buller) ; 
until  Copy I'buller,  1,4)  =  ’Tine’j 
GotoXY(l,24): 

ShoB_StatU8_Line( ’Processing  ’+ln2+’  with  ’+lnl+’  ’); 
lirst  :=  true; 
repeat 
Mark_Tine; 

Readln(li2,tm,sat_posCl]  ,8at_po8[2]  .sat^posCS] , 
8at_vel[l]  ,aat_7el[2]  ,8at_Tel[3]) ; 
Convert _Tine (tn ,yr ,mo , dy ,hr ,nl , se ,hu) ; 
tine  :=  Julian_Date_ol_Year(yr)  +  D0Y(yr,mo,dy) 

+  Fraction_ol_Day(hr,ni,8e,hu)j 
il  lirst  then 
begin 

Hriteln(lo,’  ’,time:16:8. 


end;  {il} 
lor  i  :=  1  to  3  do 
begin 

8at_po8[i]  :=  8at_po8[i]  *  0.001; 

8at_vel[i]  :=  8at_vel[i]  ♦  0.001; 
end;  {lor  i} 

DoE  :=  Depth_ol_Eclip8e(tine,8at_po8) ; 
lor  i  :=  1  to  nr. sites  do 
begin 

Calculate.ObsCsat.pos.sat.vel, sited]  .tine.obs.set) ; 
il  visible  and  Units  then 
visible  :«  Check.LinitsCobs.set.i) ; 
il  visible  then 

il  Po8(8ite.de8[i],’027  201  202  206  207  211  212  213  221  222  223  ’ 
+  ’231  232  233  241  242  243  951  952’)  >  0  then 

begin 

Calculate.Qbs (solar.pos , zero , site [i] , t ine , solar.obs) ; 
dark  :=  (solar  obsd]  <  civil); 
visible  :«  dark  and  not  eclipsed; 
il  visible  then 

Calculate_RA0ec(8at.po8,8at_vel, sited]  .tine.obs.set) ; 
end;  {il} 
il  visible  then 

Output.Datad, tine.obs.set  .sat.pos) ; 
end;  {lor  i} 
until  E0F(li2); 

Closedo) ; 

Close(ll2) : 

Progran.End ; 

FHD. 


(•-(> 


C.6  RSELECT  Program  Source  Code  Listing 


Progreun  RSelect; 

{  Author : 

{  Original  Version: 

{  Current  Revision: 

{  Version: 

{  Progra*  Inlormation: 
{$M+} 

Uses  CRT, Support, 
SGP_Init , 
Gauss2 ; 


Dr  TS  Kelso  } 

1992  Sep  IS  } 

1992  Oct  22  } 

2.50  } 

Randomly  select  observations  and  apply  noise.  } 


type 

data  =  record 

line  :  cirray  [1..98]  of  char; 
crlf  :  array  [1..2]  of  char; 
end;  {record} 


vau: 
used 
opd, 

i.j.l.c  :  byte; 

run  :  char; 

k , kk  :  vord ; 

nobs, day .nruns  :  word; 

count (daily .selection 
tine, last 
sd 


array  [0..1000]  of  boolean; 


index 

buffer 

nases, 

fn2 

fi2 

fno 

fo 


longint ; 

double ; 

array  [0. .100,1. .4]  of  double; 
eurray  [0..100]  of  longint; 
data; 

string; 

file  of  data; 

array  [1..10]  of  string; 

array  [1..10]  of  text; 


Procedure  0utp;''-_Data(ob8_nr  :  byte; 

odata  :  data) ; 


var 

i.site  :  t;t«: 

ob.grn  :  arr^v  tl..4]  of  double; 
tine.spos  :  strin;^; 
begin 

for  i  :•  1  to  4  do 
grn[i]  :■  ORandon(i) ; 
with  odata  do 
begin 

if  Po8(Copy(lino,l,3),nan«'“)  <>  0  then 
site  :»  (Po8(Copy<lina,l,3),nane8)  -  1)  div  4 
else 
begin 

for  i  :•■  1  to  (nobs  div  2)  do 
Close(fo[i]); 

Close (fi2) : 

Roport.Error(1.24, 'Site  not  found  in  ;>KIIS0RS . OBS !  ’ )  : 
end;  {else} 

tine  :-  Copy(lino,6, 16) ; 

ob[l]  :>■  Real.Valuo(linc,2&,7)  ♦  grn[l]*sd(8lte,  1) ; 
ob[2j  :“  Roal.Value(liae,34.7)  ♦  grn[2]*sd[site,'>i ; 


if  Abs(obl2])  >  90  then 
if  ob(2l  <  0  then 
begin 

ob(2]  :»  -(180 
ob(l]  :-  ob[l] 
end  {if} 
else 
begin 

obC2]  180  -  ob[2]; 
ob{l]  :-  obtl] 
end;  {else} 

if  0^}) 

ob(l]  ;«  ob[l]  -  360; 


♦  obC2]): 

♦  180; 


180: 


ob{3]  :■  Roal,Value(line,43,9)  *  grnC3]*sd(site.3] ; 


obC4]  ;»  Real_Value(line,64,9)  +  gm[4]*»d[8ite,4] ; 
spos  :■  Copy(line,63,36) : 
for  i  :■  obs  nr  to  nobs  do 
if  (i  sod  2)  ■  0  then 
Writeln(fo[i  div  2] ,Copy(line.l,6) ,ti*e, ’ 
ob[l]:7:3.>  >. 

ob[2]:7:3,>  >, 

ob[3];9:3,>  >, 

ob[4] :9:3,8pos) ; 

end;  {with} 

end;  {Procedure  Output.Data} 

Procedure  Input_Covariancea ; 
ygjc 

nane  :  string [25] ; 
fi  :  text; 
begin 

AssignCf  i  ,data_<irive+data_dir+  'SENSORS .  COV ' ) ; 

Reset (fi) : 
naaes  : ■  ’  ’ ; 
i  :=  0; 
repeat 

Readln(fi,naBe,sd[i,ll  ,8d[i,2]  ,sdCi,3],sdCi,4j); 
naaes  naaes  *  CopyCnaae, i .4) ; 
i  :=  i  +  1; 
until  EOF(fi); 

OloseCfi) ; 

end;  {Procedure  Input  .Covariances} 

BEGIN 

{  Randoaize;  } 

Prograa_Initialize( ’RSELECT4’) ; 
if  ParaaCount  «  0  then 

Report.ErrorlAl.l.’Obserwations  per  day  needed.*} 

nobs  :■  Integer_Value(ParaaStr(l) ,1,2) ; 
if  ParaaCount  >•  2  then 
nnms  ;*  Integer_VaIue(ParaaStr(2),l,2) 
else 

nruns  ;■  1; 

if  ParaaCount  ■  3  then 
fn2  :■  ParaaStrO) 
else 

fn2  :■  Select_File( 'Input  OB  file’,work.dri*ee«ork.dire‘08-».e*, ‘*,40,1,20,6) 
*88ign(fi2,work_dri»o>work.direfn2) ; 

Resetd i2) : 

GotoXY(1.24); 

Cursor.Of f : 

Sho»,Status.Line( ‘Indexing  ‘♦{n2*'...  ’): 
last  :■  0; 
count  :■  0; 
day  0; 
repeat 
Mark.Tlae; 

Read(fl2, buffer) ; 

tiae  :«  Real.ValueCbuffer.line.S.lO); 
if  tiae  >  lastel  then 
begin 

if  last  •  0  then 
last  :■  tiae 
else 

last  :■  last  ♦  1; 
index  (day]  :•>  count; 
day  :«■  day  ♦  1: 
end;  (if) 

count  ;•  count  *  1; 
until  FJ)F(fi2); 
index(O)  :»  I; 
index (day)  count; 
for  opd  :■  1  to  (nobs  div  2)  do 

fno[o)id1  :•  'RO- '♦  Copy(fn2.4,Pos<‘ .  *  .fi»2)-3)  ♦  T»ol)lgil(2*opd); 
run  ‘ : 

Inpul.Covar lances; 
for  I  1  to  nruns  do 
begin 


VS 


run  :■  Succ(jnin); 

Sho«_Status_Lin€( ’Uriting  ’♦Copy<li»o[l]  ,l,8)^'/'*run+’ . . .  '): 
for  opd  1  to  (nobs  dlv  2)  do 
bag  in 

Asiiign(fo[opd]  ,*ork_dri»»*'«ork_dir+fno[opd3'trun) ; 

R«writ«(f o [opd] ) ; 

•nd;  {for} 

for  i  1  to  day  do 
begin 

daily  indezCi]  -  indexCi-l]; 
if  nobs  >  daily  then 

Report_Error(41 , 1 , 'lot  enough  daily  observations.  ’ ) ; 
for  k  :«  0  to  1000  do 
usedLk]  :•  false; 
for  j  ;■  1  to  nobs  do 
begin 
Nark.Tine ; 

selection  :>  Randos(daily  -  j  *■  1); 
kk  :■  0; 

for  k  ;■  0  to  selection  do 
while  usedCk>kkj  do 
kk  kk  ♦  1; 
used[k>kk]  :■  true; 

Seek(fi2.indexCi-li  >  k  >  kk); 

Read(f 12. buffer); 

0utput_0ata( j .buffer) ; 
end;  {for  j) 
end;  {for  i> 

for  o^  :■  1  to  (nobs  div  2)  do 
Close(fo[opd}) ; 
end;  (for  1} 

Close(f 12) : 

Progras_£nd ; 

ElO. 
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C.  7  GA  USS2  Unit  Source  Code  Listing 


Unit  Oanss2; 

{  lathor ; 

{  Original  Varaion: 

{  entrant  taaiaion: 

{  Vara ion; 

{  Prograa  taforaation: 

(lit) 


IITEIFiCE 

conat 

aaad 


Dr  TS  Ralao  > 

1992  Sap  25  } 

1992  Oct  IS  > 

2.00  } 

Oanarataa  ganaaiaa  randoa  4aaiataa  ftom  tan 
aaparata  atraaaa.  > 


arraj  [0.  .9]  of  longint  » 


<4289S«419, 

1954324947, 

114S601099, 

1835732737 . 

794161987, 

1329531353, 

200496737, 

63M16299, 

1410143363, 

1282538739); 

Fnaction  Olaadoalatraaai  :  byta)  :  donbla; 

ntPLmrrmot 

Fnaction  OlaiuloaCatrcaa  ;  byta)  :  donbla; 

{  tafaraaca;  Icyaorical  Kacipaa,  paga  T  ) 

firat  ;  array  C0..9]  of  boolaan  *  (trtta,trtta,trtta,trna,tma, 

trQa,tma,trtta,trtta,trna); 

gaat  :  array  [0. .9]  of  donbla  ■  <0,0, 0,0 ,0,0, 0,0,0, 0); 

aar 

*l.a2,r,fac  :  donbla; 
bagta 

if  firat CatraoBj  than 
bag  in 

ktddSaad  ;•  aaad(atraa«l ; 
ropaat 

»1  : ■  2*|aadoa  -  1 ; 
a2  ; •  2aiando«  -  I ; 
r  :•  S<«r(tt)  ♦  8<4r(a2); 
nntil  r  <  1; 

aaad(airaaa)  ;■  taadSaad; 

fat  ;•  $^rt(-2*ta<r)/t); 
gaat(airaa«)  :•  atafat; 

Ctiaadoa  ;■  »2afat. 
f tratCatraan}  :•  fataa, 
and  (if) 
alaa 
bagin 

Gtaadaa  :«  gaat tatr*a») ; 
fttat(atraa^  •  tnta. 
and.  (alaa) 

and.  (Fnattian  Gtaa4a«) 


a«d. 


(■  JO 


C.8  Samplt  RSELECT  Output/DIFC  Input  File 


FILE:  RO-19859.02A. 


399 

2447982.83277118 

180.260 

4.990 

3964.273 

-6 . 293 

-7676.194 

-1791.720 

0.009 

399 

2447963.23664896 

128.886 

11.981 

8963.068 

1.632 

11677.060 

2790.836 

-673.010 

394 

2447964.11749340 

102.  ■:60 

45.089 

5398.992 

3.137 

4879.686 

393. 6S7 

970'(  .166 

394 

2447964.66610461 

122.979 

6.661 

4909.489 

-4.309 

-6693.166 

-1766.160 

6098.198 

394 

2447966 . 13486461 

365.709 

67.227 

3817.028 

0.282 

618.988 

-616.404 

9946.998 

394 

2447986.69388.29 

129.836 

21.914 

4032.044 

-3.440 

-4791.167 

-1629.660 

7086.693 

399 

2448011.14527118 

179.474 

12.840 

5090.680 

2.924 

9666.396 

632,936 

-1203.649 

932 

2448011.36402118 

267.270 

69.927 

4662.461 

-0.777 

10157.474 

297.073 

3685.215 

344 

2448012.34318786 

73.006 

54.620 

5267.162 

0.887 

-6146. 328 

-1006.698 

9170.930 

386 

2448012.66541007 

88.497 

62.601 

4465.353 

0.964 

-7896.458 

-923,961 

6898.256 

932 

2448013.31193785 

161.727 

16.582 

5490.990 

2.815 

9362.461 

594.601 

-1743.675 

382 

2448013.70082674 

247.128 

73.366 

3805.663 

0.879 

-8839 . 462 

-784.460 

4778.216 

Where  the  column  headings,  from  right  to  left,  are:  Sensor  Number,  Julian  Date,  Azimuth  or  Right 
Ascension  (degrees),  Flevation  or  Declination  (degrees).  Range  (kilometers),  Range  Rate  (km/sec), 
ECI  Position  (X)  (km),  ECI  Position  (Y)  (km),  and  ECI  Position  (Z)  (km). 
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Appendix  D.  DIFFERENTIAL  CORRECTOR  PROGRAM 


D.l  DIFC  Program  Source  Code  Listing 


Program  DIFC; 

{tE+,I+} 

{  iutlior:  BMV  } 

{  Original  Version:  22  Oct  1992  } 

{  Current  Revision;  30  Oct  1992  } 

{  Version:  2.00  } 

{  Description:  Sequentially  differentially  corrects  the  classical  elements  } 

Uses  DC.Inlt,  {constants,  argument  types,  variables} 

SGP.Couv,  {procedure  Conrert.Satellite.Data} 

SQP.Inlt  SGP.Intf,  {constant,  argument  types,  varialbles} 

S6P_Math,  {function  Radians} 

SGP.Time,  {function  Epoch.Tims} 

LOWS,  {procedure  Load_Sensor_Info} 

Prop,  {procedure  Propagate} 

DC.Out,  {procedures  Init_Output.Files  ft  Closo_Output_Filas} 

DC.Calc,  {differential  correction  calculations} 

Support,  {Integer.Value,  Initialize} 

Crt ; 

BEGIM 

Program.InitializeCDIFC’) ; 

IF  ParamCount  <>  3  THEI 
begin 

vritnlnC'IIPUT  FORMAT  ERROR! >); 
urltelnC ’Command  Line  Format: 


uritelnC 
vritelnC’ 
vritelnC’ 
Halt; 
and;  {IF} 
n.batches 
LUPI 
OPD 

batch.size 


DIFC  RO-satnr.nn?  aa  bb’); 
uhere:  RO-satnr.nn?  is  the  random  observation  file,’); 
aa  is  the  correction  ’nterval  in  days,  and’); 
bb  is  the  number  of  correction  batches  desired.’); 


Integar.Value(ParamStr(3) ,1 ,2) ; 
Integer.Value(ParamStr(2),l,2) ; 
Integer.Value (copy (ParamStr (1) , 10,2) , 1 , 2) ; 
OPD  •  LUPI; 


{Input  sensor  location  k  covariances} 

Load.Sensor_Data(Oeodetlc_SSI,Qlnv_SSI) ; 

{Input  a  single  two  line  element  set  -  the  estimated  elset} 

Input. Sat.OE.data(ParamStr(l)) ; 

{Input  Satellite  OE  Set  as  a  string  and  separate  the  elements} 

Convert.Satellite.datad) ; 

{Input  Satellite  OE  Set  as  a  string  and  separate  the  elements} 

Orig.Jullan_epoch  :»  Jullan.apoch; 

{Save  epoch  of  seed  OE  sat  for  use  in  calc  VMAGT} 

Init .Output.Files (Par amStr (1 ) , ParamStr (2) ) ; 

{Init  output  files  for  VMAGT  t  Residuals} 

Input_COVinv(ParumStr (1) ,est_COV.inv) ; 

{Input  the  7x7  COV.inv  matrix  -  the  estimated  COV} 

Invert (est_COV.inv,est_COV) ; 

{Init  est.elset  array  elements  to  OE  sat  elements 
Init_est_el8et(est.elsst) ; 

Output_elset( ’Original  Elset’ ,e8t.elsat) ; 

Ass  ign  ( OBS  inf  lie ,  vork.dr  ive+vork.dir-^Par  amStr  (1) )  ; 

Reset (OBSinf lie) ; 

FOR  batch.num  ;■  1  TO  n.batches  DO 
Begin 

vriteln(’  ’); 

{Loop  to  input  a  batch  of  truth  observations,  t  calc  VMAGT} 

for  i  :>  1  to  batch.size  do 
begin 

Readln(OBSinf ile,sansor_num,obtime.setCl] , 

true_obs.set[i,l] ,tru8„ob8_8et[i,2] ,true_ob8_Bet[i,3] ,true_ob8_set[i,4] , 
true.pos.set  [i,l] ,true_po8.set [1,2] , true .pos. set [1,3]) ; 
true_obs.set[i,l]  :■  Radian8(true.obs_set[i,l]) ; 
true.ob8_set[i,2]  :■  Radians (true_obs_sst[l, 2] ) ; 
sits_set[i]  Pos(ssn80T.num, sitestring)  iiv  4; 

{Set  observation  type.  If  optical  site  ensure  range  (obset[3])  A  range  rate  } 
{(obaat[4])  ■  0.0  If  1AVSPA3UR  or  EQLII,  ensure  range  rate  (obset[4])  «  0.0  } 
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IF  P0S(san8or_nua,>2tl  221  231  241  9$1  9S2  O  -  0 
THE! 

obtyp«_sot [1]  3 

ELSE 
begin 

obtyp«.set[i]  :■  6; 
true_obs_Bet[l,3]  :>«  0.0; 
true_ob»_Bet[i,4]  0.0; 
and;  {ELSE} 

IF  P0S(san8or.nua.>74S  398  399  >)  <>  0  THEI 
begin 

obtype_8et Ci]  2; 
traa_ob8.8et[i,4]  0.0; 
and;  {THEI} 

{Calc  t  Output  VHiGT,  flag  if  first  pass  VKIST  >  30  km} 

Calc.VMlGTCobtima.set [i] .true.pos.sat {i} , est.elset , VHAGT) ; 
Writaln(FVoutfila,obtime_8at[i]-0rig.Julian.epoch:S;2, >  > ,VMAGT;7:2) ; 

IF  (VNIGT  >  30.0)  AID  (Batcb.nua  >  1)  THEI 

Britaln(Routfile, 'VHAGT  »  > ,VMAaT;8:2,>  km  for  Batch  ' .batch.num, '  Ob  '.i); 
and;  {for  i} 

{Propagate  the  ast  alset  A  ast  COV  to  nau  epoch  (time  of  node  crossing  prior  to  last  ob} 

prop.time  obtima.set  [batch_siza]  -  est.elset [0] ; 
Propagate(prop_time,ast_al8et,ast."0V,prop_ast_alset,prop_est.C0V) ; 

Invert (prop.est.COV .prop.est.COV.inv) ; 

{Bayes  Filter  Algorithm} 
bstar.flag  :»  falsa; 

Correct (true.obs.set ,obtima_set ,site_set , obtype.set , 

prop.est.elset ,prop_est_COV_inT,cor_elset,cor_COV) ; 

{Calc  A  Output  VMAGT  after  convergence} 

for  i  1  to  batch.size  do 
begin 

Calc_VHAGT(obtime.8et[i] ,trua_pos_8etCi],cor.elset, VHAGT) ; 
Hriteln(LVoutfile,obtime_8etCi]~0rig_Julian.epoch;5:2, '  ’ ,VHA0T:7:2) ; 
end;  {for  i} 

{Declare  corrected  elset  A  COV  to  be  est  elset  A  COV} 

for  i  ;»  0  to,7  do 
e8t_alsat[ij_:»  cor.alset [i] : 
for  i  :■  1  to  7  do 
for  j  1  to  7  do 

est.COVCijj]  cor.COVfi,  j]  ; 

end;  {FOR  Batch.num} 

Close (OBSinfile) ; 

{Output  Final  corrected  elset  A  COV  for  comparison  to  propagated  original  elset} 

Output_elsot( 'Final  Corrected  Elset ' .est.elset) ; 

Output_COV('Final  COV' .est.COV) ; 

{Propagate  the  original  elset  to  time  of  final  corrected  elset  for  comparisons  A  Output} 

Input.Sat.OE.dataCParasiStrd}) ;  {Re-input  original  OE  set  data} 

Convert.Satellite.datad) ; 

Init.est.alsetCest.elset) ; 

prop.time  ;■  obtime.set [batch.size]  -  est.elsetEO] ; 

Propagate(prop_time,est_elsat, est.COV .prop.est.elset .prop.est.COV) ; 

Output.elsetC 'Propagated  Original  Elset ' .prop.est.elset) ; 

Closa.Output .Files ; 

EID. 
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D.2  DCJNIT  Unit  Source  Code  Listing 


{$E+,1I+} 

UIIT  DC.Init; 

{  Author:  BMW 

{  Original  Varaion:  21  Oct  1992 
{  Currant  RaTision:  30  Oct  1992 
{  Varsion:  2.00 


{  Description: 

{ 

IITERFACE 
Uses  SGP_Kath; 

const 

del.bstar  ■  l.OE-06; 
del.iincl  »  l.OE-07; 
del.xnodeo  ■  l.OE-06: 
del.eo  ■  l.OE-08; 
del.omegao  »  l.OE-06; 
del.zmo  >•  l.OE-06; 
del.xno  «  l.OE-10; 

max.sites  »  30; 
max.batch.siza  >  100; 

type 

natriz7x4 
matrix4x7 
matrlx7x7 
raatrixOil 
natrlxBxl 
matrixBz4 
natrizBxl .by t  a 
DatrixMz4 


Contains  the  constants,  type  declarations,  and  variables  } 
needed  in  for  Units  DC.Calc  A  DC.Out  and  Progran  DIFC.  } 


{argunent  type  vector} 

{Order  of  Magnitude  of  the  Hedian  delta  values  of  elements} 
{based  on  satellite  catalog  as  of  JAI  1986} 


var 

i.j.k 

batch.nuB, 

obnun 


'  array  [1 . 
'  array  [1 . 
array  [1 . 
array  [0. 
array  [1 . 
array  [1 . 
array  {1. 
array  [1 . 

byta; 

byte; 

string[4] 


sensor.nun 
Geodetic.SSI, 

Sigaas.SSI, 

Qinv.SSI  :  natrlxHx4 

true.obs.set  :  matrixBxA 

true.pos.set  :  aatrixBz4 

obtime.set  :  matrixBxl 

slte.set  :  natrizBxl 

obtype.sat  :  matrlxBzl 

cor.COV, 
prop.ast.COV, 
prop.est.COV.lnv , 
ast.COV, 

ast.COV.lnv  :  matrix7x7; 

cor.elset , 

est.alsat, 

prop.ast.elsat  ;  matrizSxl 
Orig_Julian_apoch, 


prop. time 

:  double ; 

OBSinflle, 

Routflle, 

LVoutfile, 

FVoutfile 

:  text; 

n.batches, 

OPD, 

LUPI, 

batch.size 

Integer; 

bstar .flag. 

converged 

boolean; 

Iteratlon.num 

byte; 

convsrge.flag 

byte; 

VNAOT 

double ; 

description 

string; 

sitestring 

string; 

IMPLEKEITATIOI 

.7,1.  .41  of  double; 

.4,1..7J  of  double; 

.7,1.. 7]  of  double; 

.7]  of  double; 

.max.batch.siza]  of  double; 

.naz.batch.slze]  of  vector; 

.nax.batch.siza]  of  byta; 

.max.sites]  of  vector; 

{counters} 

{sequential  correction  counter  in  DIFC} 
{observation  number  index  for  Bayes} 

;  {sensor  number} 

{array  for  sensor  geodetic  Lat,  Lon,  k  Alt} 
{array  for  sensor  sigmas} 

;  {array  for  sensor  covariances} 

;  {array  for  true  obserations} 

;  {array  for  true  positions} 

;  {array  for  observation  times} 

.byte;  {array  for  cross  referenced  sensor  number} 
.byte;  {array  for  sensor  obtype  (2,3,  or  6)} 
{corrected  ref  covariance} 

{propagated  est  covariance} 

{propagated  est  covariance  inverse} 

{est  covariance} 

{est  covariance  inverse} 

{corrected  reference  elset} 

{estimated  elset} 

{propagated  est  elset} 

{Julian  epoch  of  seed  2LE} 

{propagation  time  in  minutes} 

{True  obseravation  input  file  ID} 

{Flags  output  file  ID} 

{Last  pass  VHAOT  output  file  ID} 

{First  pass  VKAGT  output  file  ID} 

{number  of  correction  batches} 

{Observation  rate  (obs/day)} 

{correction  update  interval} 

{number  of  obs  la  a  correction  batch} 

{True  if  bstar  is  not  used  for  Bayes  correction} 
{Used  in  convergence  test} 

{Bayes  iteration  counter} 

{flag  for  last  Bayes  correction  run} 

{vector  magnitude  of  diff  in  true  A  calc  pos} 
{Elset  output  header  variable} 


EID. 
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D.S  DC_CALC  Unit  Source  Code  Listing 


{$E+,I+} 

UIIT  DC.Calc; 


{  Author ; 
{  Original  Varsion; 
{  Currant  Ravision: 
{  Version: 


BMW  } 
23  Oct  1993  } 
30  Oct  1992  } 
2.00  } 


{  Description:  Contains  the  procedures  used  to  parfom  the  calculations  } 
{  for  Progran  DIFC.  } 


IITERFACE 
Uses  DC.Init, 
SGP_Kath; 


{constants,  argument  types,  variables} 
{argument  type  vector} 


Procedure  lnpnt_Sat_OE_Data(f ini  :  string) ; 
Procedure  Init.est.elsatCvar  est.elset:  matrizBxl); 
Procedure  Calc_VHAQT(obtime  ;  double; 

true.pos  ;  vector; 
elaet  :  matrixBxl; 
var  VHIGT  :  double); 

Procedure  Correct (true_obs_set  :  matrixBx4; 

obtime.set  :  matrixBxl; 
site.sat,  obtype.set  :  matrixBxl.byte; 
old-ast.elsat  :  matrixBxl; 
old.cBV  inv  :  matrizVxf; 
var  nee.est.alset  :  matrixBxl; 
var  nes.COV  :  matrlx7x7); 
Procedure  Input . CO Vlnv(fln2  ;  string; 

var  COVinv  :  matrix7x7); 

Procedure  Init .7x7 Array (var  A  :  matrix7x7); 
Procedure  ''nit_7xlArray(var  A  :  matrixBxl); 


Procedure  Fo’muT_Natrix(raf_elsat  :  matrixBxl; 

obtime,  obtype  :  double; 

Geodetic  :  vector; 
var  ealc.obs  :  vector; 

var  T  :  matrix4x7); 

Procedure  Calc_Residual(true.obs,  ealc.obs  :  vector; 

var  Residual  :  vector); 

Procedure  Sum_TQT_iqR(T  :  *atrix4x7; 

Qinv,  Residual  ;  vector: 
var  Sum_TtQinvT  :  matrix7x7; 
var  Sum_TtqinvR  :  matrixBxl) ; 

Procedure  Invert (H  :  matrix7x7; 

var  Kinv  :  matrlx7x7) ; 

Procedure  Calc_neB_COV(old_COV.lnv,  Sum.TtqinvT  ;  matrlz7x7; 

var  nev.COV.inv,  uev.COV  :  matrlx7x7); 

Procedure  Calc.corrected_ref.elset(old.COV.inv,  Sum_Tt()invT,  new  CO 7  :  ■atrix7x7; 

old.est.elset,  ref.eleet  :  matrixBxl; 
var  delta.ref.elset,  correct ed.ref.elset  :  matrixBxl); 
Procedure  Test_Convergence(delta_ref_elset  :  matrixBxl; 

aew.COV.inv  :  matrix7x7; 
var  converge.Ilag  :  byte; 

var  converged  :  boolean) ; 


INPLEHEITATIOl 
Uses  SQP_lnit,SOP.Intf, 
DC.Out , 


SaP4SDP4, 
SOP.Time, 
aOP.Obs, 
SGP.Conv , 
Support ; 


{constants,  argument  types,  variables} 
{output  procedures} 

{SQP  propagation} 

{function  Epoch.! ime} 

{procedures  Calculate.Obs  A  Calculate  RADec} 
{procedure  Convert.Sat.State} 

{procedure  Hark.time} 


’•f 

8um_TtQlnvT 

Snm.TtqinvR 

Residual, 

calc.pos, 

calc.vel, 

ealc.obs 


matrix4x7; 
matr 1x7x7; 
matrixBxl; 


:  vector; 


{observation  matrix  (partial  obs  v.i.t  ref.elset)} 
{ruiuxittg  sum} 

{running  sum} 

{True.obc  -  ealc.obs} 

{calculated  position} 

{calculated  velocity} 

{calculated  observations} 


Procedure  Input_Sat.OE_Data(f ini  :  string)  ■ 

var 

Oainfile  :  text; 
begin 

Aasign(0Elnfile,data.drlvetdata.dirt'3LE'ecopy(finl,4,B)e> ,dat') ; 
Reset(Qhinfile); 

Readln(OEiafile,sat.data[l,l]); 

Readln(OElnf le.sat  .data  Cl ,  3}  ) ; 
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Clof«(OEinfil«); 

•nd;  {Proccdur*  Input.Sat.Data} 


Pxocadnxa  Init_«st_alaat(Tax  aat.alsat:  BatrizSxl); 
bagin 

••t_tla«t[0]  Juliaa.apoch; 
aat.alatt[l]  bataz) 

•at_alsat[2]  zincl; 
ait.al>at[3]  :■  xnodao: 
ast.alsatid]  :•>  ao; 
aat.alaatCS]  ;>  omagao; 
ast_alsat[6]  :■  no; 
ast.alaatC?]  :■  zno; 
and;  {Procadoxa  Inlt.aat.alaat} 


Pxocadnxa  Input_C0Vinv(fln2  :  atxlng; 

Tax  COVina  :  Batzli?!?); 

Tax 

COVinfila  :  tazt; 
bagin 

AaaignCCOVinf  ila idata.dxiToadata.dlxa’COV 'acop; (f in2 ,4 , S) a ' . dat ' ) ; 

KaaatCCOVlnllla); 
fox  i  :■  1  to  7  do 

Raadln(COVinfila,COVinT[i,l] ,CaVlnT[i,2] ,C0¥lnT[i,3] ,COVlnT[i.4] . 

CO Vina [i , 6]  ,C0 VinaCl .6] .CDVina [i , 7] ) ; 

Cloaa(COVinflla) ; 

and;  {Pxocadnxa  Inpnt.old.COV.ina} 

Pxocadnxa  Init_7z7Axxay(Tax  A  :  ■atxlx7z7) ; 
bagin 

fox  i  :«  1  to  7  do 
fox  j  1  to  7  do 
i[i.j]  0.0; 

and;  {Pxocadnxa  Init_7x7Axxa7} 

Pxocadnxa  Init.7xlAxxay(Tax  A  :  nattizSzl); 
bagin 

fox  i, :■  0  to  7  do 
A[i]  :■  0.0; 

and;  {Pxocadnxa  Init_7xlAxxa7} 

Pxocadnxa  Calc.VMAOTCobtiaia  :  doubla; 

txna.poB  :  aactox; 

alsat  :  natxizSxl; 

Tax  VNAOT  ;  donbla) ; 

bagin 

if lag  :■  1;  {S0P4S0P4  flag  nacassaxy  to  calc  70  cosatantt} 

Jnlian.apoch  :<•  alaatCO]; 

apoch  :■  Epoch.TlaaCalsatCO]} ; 

batax  alaatCl];  {Inauxaa  alaaanta  axa  xa-initializad  to  tha  propax} 

zincl  :■>  alaat[2];  {aalua  pxiox  to  xaading  obaaraationa  2  to  "n"} 

xttodao  alaat[3]; 

ao  :<■  alaat[4]; 

OBagao  :  >■  alaat  [6]  ; 

no  :■  alsat  [6]; 

zno  :>  alaat  {7}; 

{Calculata  calc.oba  baaad  on  SOP  propagation} 

SOP (obt iBO , calc.poa , calc.aal) ; 

Conaaxt_Sat_Stata(calc.poB,calc.aal); 

VHAOT  a4Xt(aqr(trna_poa[l]-calc_poBCl]) 
aqrCtrna.poa [2] -calc.poa [2])  * 
aqr(truo.poaC3]-calc_posC3])) ; 
and;  {Pxocadnxa  C^c. VHAOT} 


Pxocadnxa  Corxact(txna_obB_aat  ;  BatrizBz4; 

obtiBa.aat  ;  aatrIxBxl; 
aita.aat,  obtypa.aat  :  BatrixBxl.byta; 
old.aat.alaat  .-  aatrizSzt; 
oId.c3v,Ina  ;  Batriz7z7; 
aax  naa.aat.alaat  ;  BatrixBzl; 
aar  naa.COV  ;  Batriz7x7): 
aax 

raf. alaat, 

corractad.raf.alaat , 
dalta.raf. alaat  :  BatrizSxl ; 
naa.COv.ina  ;  Batrix7x7 ; 
labal 

baJ2i 

co&v«rg«  .flag  0; 

itaration,nuB  :<•  0; 
for  i  0  t,q.7  do 
xaf.alaatll]  :■  old.aat.alaatCi]; 

10:  tnit.7x7Array(Sua.TtqiaaT); 


{Init  SnB.TtQlnTT  array  alaaanta  to  0.0} 
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Ialt_7xlirray(SuB.TtqiiiTH) ;  {lait  Sua_TtqinTR  axxaj  alaaants  to  0.0} 

Inlt_7xlirray(<}alta.raf_«laat) ;  {lait  dalta.xaf.alaat  array  alaaants  to  0.0} 

{Itaration  countar  t  Scraan  print  of  Bayas  Corraction  status} 
ltaration_nua  :>>  Itaration.nna  +  i; 

srltaln(paraaatr(l),*  batch  ’ ,batch.nua, *  Itaration  *, 

ltaration_naa,’  convarga  ' ,conTarga.flag) ; 

{Beginning  of  basic  Bayes  Correction  loop} 

for  obnua  :>  1  to  batch.sixe  do 
begin 
Kark_Tiao ; 

Fora.T_Matrlx(raf_elset,obtiBa.aet[obnoaO  ,obtype.sst[obnua] , 
0eodatlc_SSlCsita_8st [obnua]} ,calc.obs,T) ; 
Calc_Resldual(true_obs_set [obnua],  calc.obs.  Residual); 

{  Output_Re8iduals(true_ob8_8et[obnua], calc.obs,  residual);  } 

Sua_TqT_TQR(T,  Qlnv.SSI [slta.sat [obnua]] ,  Residual,  Sua_TtqinTT,  Sua.TtqinTR) ; 
end;  {for  obnua} 

Calc_ne»_COV(old_COV_in» , Sua„TtqinTT ,neB.CO¥.ln»,neB.COV) ; 
Calc_corrected_Tef_elset(old_COV.lnT,Sua_TtqinTT,neB.COV,old.est_elset , 
ref _al8et,dalta_ref_elset ,correctad_ref_el8et) ; 
Test_ConTergenca(delta_raf_elset,  neB.CQV.inv,  conveTge.flag,  conTerged) ; 

IF  lOT  (converged) 

THE! 

begin 

for  i  :■  0  to  7  do 

raf_al8at[i]  corracted_raf_el8et[l] ; 

OOTO  10; 
and 
ELSE 

for  i  :■  0  to  7  do 

neB.ast.alsat [i]  ;«  corrected_raf.a]Bat[i] ; 
and;  {Procedure  Correct} 


Procedure  Fora_T_Hatrlx(ref_alset 
obtlaa,  obtypa 


Tar 

del.pos , 
dal.vel, 
del.obs 
del.elset 
del 
begin 

if lag  !»  1; 

Jullan.epoch 

epoch 

bstar 

xlncl 

xnodeo 

eo 

oaagao 

xao 

xno 


Qeodatic 
Tar  calc.obs 
Tar  T 


aatrixSxl ; 
double; 
vector; 
vector; 
aatrix4x7) ; 


vector;  {calc.obs  changed  by  saall  change  in  ref.alsat} 
aatrlxBxl;  {saall  change  to  alaaants  (dal.xndtRo,  dal.xnddSO,  ate.)} 
aatrlxBxl;  {binary  counter  for  changa  in  ref.alsat} 


B  raf.elset[0] ; 

B  Epoch.TlBs(ref_elaat[0]); 
B  ref.alsat [1]; 

B  ref.alsat [2] ; 

B  ref.alsat [3] ; 

B  ref.alsat [4]; 

B  ref.alsat [5] ; 

•  ref.alsat [6] ; 

B  ref.alsat [7] ; 


{S0P4SDP4  flag  necessary  to  calc  70  constants} 


{Insura;:)  slcaents  are  ra-lnitiallzed  to  the  proper} 
{value  prior  to  reading  observations  2  to  “n"} 


{Calculate  calc.obs  based  on  SOP  propagation! 

SQPCobt iaa ,calc.pos , calc.vel) ; 

Convert. Sat. Stata(calc.pos,  calc.vel);  {pos  froa  DU  to  ka,  vel  from  DU/ain  to  ka/sac} 
IF  obtypa  <>  8 
THEI 

Calculata.ObsCcalc.pos,  calc.vel,  Oaodatic,  obtiaa,  calc..obs) 

ELSE 

begin 

Calculata.RlDac(ca'‘C.pos,  calc.vel,  Oaodatic,  obtiaa,  calc.obs); 
calc.obs[3]  :b  0.0; 
calc.obs [4]  :B  0.0; 
and;  {else} 

IF  obtypa  b  2  THEI 
calc.obs [4]  :b  0.0; 

{Assigns  deltas  for  the  T  Matrix  elaaant  calculation  process} 


for  i,:f 
dal[i] 


dal.sisat[t] 
dsl.alsat[2] 
dal.alsat [3] 
dal.alsat[4] 
dal.alsat [6] 
dal.alsat [6] 


1  to  7  do 
0.0; 


del.bstar : 

■  dal.xincl; 

■  dal.xnodao; 

■  dal.ao; 

B  dal.oaagao; 

■  dal.xao; 
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d«l_*li«t[7]  :■  dal.zno; 

{Loop  that  coaputas  tha  T  Hatriz  alanants} 


for  i:”  1  to  7  do 
bagin 
dalCi] 
bstar 
zincl 
znodao 
ao 

onagao 

ZBO 

zno 
dalCi] 


■  1.0; 

■  raf_alsat[l]  +  dal.batar  *  dal{l] 

■  raf.alaatCS]  *  dal.zlacl  a  dal [2] 

■  raf_elsat[3]  +  dal.zaodao  a  dal [3] 
a  raf_alaat[4]  *  dal.ao  a  daltd] 
a  raf_al8at[6]  a  dal.onagao  a  dal[S] 
a  raf.alaatCe]  +  dal.zao  a  dal[6] 
a  zaf_alsat[7]  +  dal.zno  a  dal [7] 
a  0.0; 


iflag  :a  1;  {SQP4SDP4  flag  nacaasary  to  calc  70  constants} 

{Calcnlata  dal.obs  using  aariad  alanants} 

SGP(obtina,dal_pos,dal_Tal) ; 

ConTart_Sat_Stata(dal.poB,  dal.aal);  {pos  fron  DU  to  km,  aal  fzon  DU/min  to  km/sac} 
IF  obtypa  <>  6 
TBEI 

Calcnlata.ObsCdal.pos,  dal.aal,  Gaodatlc,  obtina,  dal.obs) 

ELSE 

bagin 

Calculata.RlDac(dal.pos,  dal.aal,  Gaodatlc.  obtina,  dal.obs); 
dal.obs [3]  :a  0.0; 
dal.obs [4]  :a  0.0; 
and;  {alsa} 

IF  obtypa  ■  2  THEI 
dal.obs [4]  :a  0.0; 

{Calcnlata  Obsazaation  Hatriz  alanants} 

for  j  1  to  4  do 
bagin 

T[j,i]  !■  (dal.obsCj]  -  calc.obsCj])  /  dal.alsatCi] ; 
and;  {for  j} 
and;  {  for  1} 

IF  (bstar.flag)  THEI 
for,i:«  1  to  4  do 
T[I,1]  !-  0.0; 

and;  {Piocadura  Fom.T_Matriz} 

Procadura  Calc.RaslduaKtrua.obs,  calc.obs  :  aactor; 

aar  Rasidual  :  aactor) ; 

bagin 

for  i  !■  1  to  4  do 

RasidualCl]  :■  trua.obsCi]  -  calc.obs[i]: 
if  RasidualCl]  >  pi  than 
RasidualCl]  :■  RasidualCl]  ~  taopi; 
if  RasidualCl]  <  -1.0*pl  than 
RasidualCl]  RasidualCl]  *  taopi; 
and;  {Proeadxira  Cale.Rasidual} 

Procadura  Sun.TQT.TqR(T  :  natriz4z7; 

Qina,  Rasidual  :  aactor: 
aar  SuscTtQinaT  :  natriz7z7; 
aar  Sun.TtQinaR  ;  natrizSzl); 

aar 

TtOina  :  natriz7z4; 

TtQinaT  :  natriz7z7; 

TtQlnaR  ;  natrizSzl; 
bagin 

xor  i  :•  1  to  7  do 
for  j  :>  1  to  4  do 
TtQinaCi.J]  TCj,i]*QinaCj] ; 
for  i:“  1  to  7  do 
bagin 

TtQinaRCi]  ;■  TtQinaCi|l]*RasidttalCl]  TtqinaCi,2]aRasldaalC2] 

*  TtqinaCi,3]*RasidttalC3]  *  TtqinaCi,4]aRaaidualC4] ; 
for  j  :■  1  to  7  do 

TtQinaTCi.J]  :■  TtQinaCi.l]*TCl.J]  ♦  ItQinaCi.2]aTC2.]] 

♦  TtQinaCi.3]*TC3,j]  ♦  TtQinaCi.4]aTC4, J] ; 

and;  {for  i} 
for  i;a  1  to  7  do 
bagin 

8ttn.TtqinaRCi]  Sun.TtqinaRCi]  ♦  TtqinaRCi]; 
for  j  ;•  1  to  7  do 

Sun.TtqinaTCi,j]  :■  Sun.TtqiaaTCi,j]  +  TtqinaTCl.J] ; 
and:  {for  i} 

and;  {Procadura  Sun.TqT.TqR} 
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PzoctdnT*  InT«rt(H  ;  MtrixTx?; 

Tax  MlnT  ;  ■atrix7x7) ; 

lalitl 
abort ; 
conat 

attribataa  «  7; 
a«st  «  7; 

Tax 

i,j ,k,l,lrov,lcol,ll 

dot ara , piTot , hold , 8U> , t , ab , b Ig 

Indax 


Intagar; 
doubla ; 

arrafCl. .nast,l. .3]  of  integar; 


Procaduza  SBap(Taz  a,b  :  doubla): 

Taz 

hold  ;  doubla; 
begin 
hold  a; 
a  :■  b; 
b  hold; 

and;  {Pzoctduze  Snap) 

{Oausa-Jozdan  iuTaztion} 
bagin 

for  i  :■  1  to  attrlbutaa  do 
indexCi.a]  :»  0; 
detaza  1; 

foz  i  1  to  attrlbutaa  do 
bagin  iSearch  for  largeat  alaaant} 
big  !■  0; 

foz  j  :*■  1  to  attrlbutaa  do 
begin 

IF  Index [j, 3]  <>  1  THE! 
begin 

for  k  1  to  attzibutaa  do 
bagin 

IF  indax Ck, 3]  >  1  THE! 
bagin 

arltalnCERKOR:  Matrix  singular ') ; 
goto  abort; 
and;  {IF} 

IF  index Ck, 3}  <  1  TEEI 
IF  iba(K[j.k])  >  big  THEI 
begin 

irow  !■  j; 

Icol  ;■  k; 
big  iba(H[j,k]); 
and;  {IF} 
and,  {for  k} 
and;  {IF} 
and;  {for  )} 

lndexCicol,3]  :■  indazCicol,3]  +  1; 
index [1,1]  :■  iroa; 
indexCi,2]  :■  icol; 

{Interchange  roes  to  put  pixot  on  diagonal} 

IF  iroa  <>  icol  THE! 
begin 

detam  ;■  -datera; 
for  1  ;•  1  to  attributes  dp 
Saap(HCiroa,lJ  .HCicol,lJ); 
and;  {IF  iroa  <>  icol} 

{Oiaida  piaot  roa  by  pirot  colunn} 
piTot  ;■  NCicol,icol] ; 
datan  ;■  deter*  *  pitot ; 

Mtlcoliicol]  :■  t; 
for  1  :■  1  to  attributes  do 
K[Icol,l]  :•  Hiicol,!!  7  piaot; 

{Kadttce  nonpiaot  roas} 

for  11  :■  1  to  attributes  do 
begin 

IF  11  <>  Icol  TBEI 
bagin 

t  HCll.icol]; 

?Cll.icol]  :•  0; 
or,l  :■  1  to  attributss  do 
HCll.ll  :•  KCll.l)  -  BCicol.l)  e  t; 
and;  {IF  11  <>  icol} 
and;  {for  11} 
and;  {for  i} 

{Interchange  coluane} 

for  i  :■  1  to  attributes  do 
begin 

1  :■  attributes  -  1  ♦  1; 

IF  index [1.1]  <>  indax [1,3]  TBEI 
bagin 
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Iros 
icol  - 
lor  k 


ind«x[l,l] j 
ind*x[l,2] ; 

~  A  to  attrlbatos 


.53; 


»*ap(MCk,iroB]  ,MLk,icol] 

«nd;  {IF  ind«x} 

•nd;  {for  i> 

lor  k  :■  1  to  attriboto  do 
IF  isdax[k,3]  <>  1  THE! 
bagia 

■rltalnC ’ERROR:  Matrix  alngnlar’); 
goto  abort; 
and;  {IF  indax} 
for  i  :■  1  to  attrlbntas  do 
for  j  1  to  attributaa  do 
Kin»[l.j]  :-M[i,j]; 
abort : 

and;  {Procadura  Invert} 

Procadnra  Cale_na»_COV<old_COV_inT,  SaB_TtQinvT  :  natrixTr?; 

^  J  var  nas.COV.inv,  naa.COV  :  BatrixTr?); 

bagin 

lor  i  :■  1  to  7  do 
lor  j  1  to  7  do 

na».COV_in»[i,j]  old_COV.in»[i.J]  +  SoB_TtlJinvT[i. j] ; 
Invart  <naB_C0 V_int , nee.COV) 
and;  {Procadnra  Calc.nas.COV} 

Procadura  Calc_corractad_raf_elaat(old_COV_inB,  Sua.TtQinvT,  nee  COV 

old.aat.alaat,  raf.elaat 


■atrixSxl ; 


Bar 
tanp 

>ax_ao, 
■ax.abs.bstar, 
■ax.xno  :  double; 
begin 
for  i  L«,l 
tenpli] 


Tar  delta.ref.alnat ,  corractad.raf.alaet 


Batrii7x7; 
natrixSxl; 
natrixaxl) ; 


{nax  eccentricity  baaed  on  naan  Botlon} 

{Abaolttte  aax  valua  of  batar  baaed  on  analya^s  of  aat  data} 
{nax  Bean  notion  based  on  eccentricity} 


to  7  do 

«  old,COV.inT[i.l}  * 

♦  oXd.C0V.inT[l,2]  ♦ 

+  old.C0V.inT[i,3]  e 

♦  old.C0V.inTCi,4]  • 

♦  old.C0V.inT[i.5]  • 

♦  old.COV.inTCi.6]  e 

♦  old.C0V.inT[i.7]  e 

for  i  1 
delta.ref.elset[i]  :■  nes.COVCi,!] 
♦ 


(old.est.elaet {1} 
( old.est.elaet [2] 
(old.ast.alset [3] 
(old.est.elaet [4] 
(old.ast.alset [S] 
(old.ast.alset [6} 
(old.est.elaet [7] 


ref.elaetCl]) 
ref_alaet[2]) 
ref.elaet [3] ) 
ref  .alset  [4] ) 
ref.elaet [S]) 
ref.elaet [6}) 
ref.elaet [7]) 


nee.COV [i, 2] 
nee.COV [i ,3] 
nee.COV [i, 4] 
nee.COV [1.6] 
nee.COV [1,6] 
nee.COV [1,7] 

ref.elaet [0] ; 


te«p[l] 

teap[2] 

tenp(3] 

te«p[4] 

tenp[S] 

ttBp[6] 
teap[7] ; 


>; 


corrected.ref .alset [0] 
for  i  :»T  to^  do 

eorrectad.raf .elset [i]  :■  ref.eltet[i]  ♦  delta.ref.eXsat[i] ; 

{Test  for  corrected  elenents  being  set  to  ealues  outside  alloeable  range} 
■ax.abs.bstar 

IF  (lbs(corrected.ref.elaet[t])  >  ■ax.abs.bstar)  TBEl 
begin 

vriteln(Routfila, 'Corrected  batar  out  of  Halts.  Retained  ref  bstar.' 
eriteln(Routflls, ’  Batch  ' ,batch.nua, *  Iteration  ’ .Itaration.nua): 
Britelndoutflla,'  ref  bstar  ■  ',ref.alset(S]  :1S>; 
eriteln(Routflla. '  cor  batar  ■  ’ .corrected.ref. alset [t] : 16) ; 
correeted.raf.elset[l]  ;■  ref.elaet [I ]; 
dalta.raf.eltet[l]  :■  0.0; 
bstar.flag  :■  true; 
end;  {IF} 

■ax.ao  :■  1.0  -  Poser (1 .0/xka,2/3>  ♦  PoBer(correeted.ref .elset[7] ,2/3) ; 

IF  (eprrected_raf.alset[4]  >  ■ax.ao)  OR  (corractad.raf.alaet [4]  <  0.0)  TSEI 
begin 

aritelndoutflla, 'Corrected  eo  out  of  Units.  Ratslned  ref  to.'); 
Briteln(koBtflIa.'  Batch  ' .batch.nun, '  Itaration  ' .Iteration.nua) ; 
vritela(Routflle, ’  raf  ao  «  ' .ref.altat[4] :1S); 

Britelndoutfila,*  cor  ao  ■  ’  .corractad.raf.elsat[4]  :1S) ; 
aritelnlRoutfila.'  xno  •  '  ,corractad.raf.elsotbi  :  16)  ; 
correctad_raf.elsst[4]  ;•  ref.alsat[4l ; 
and;  (IF) 

■ai.xno  :«  Poear((l .0-correctad.raf.elsat[4]),3/2)eik«; 

IF  (correctad.raf.alset[7]  >  Bax.xno)  OR  (corrected.rtf.aIsat[7]  <  0.0)  THKB 
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btgln 

srit«ln(Routfil«, 'Corx«ct*d  xno  out  of  lialts.  Rotainod  raf  xno.’); 
«rittln(Routfil«, '  Batch  * ,batch_ntua, ’  Itaration  ’,itaration_ntuB); 
aritalnCRontfila, ’  raf  zno  >  ’ ,raf_alsat[4] :1B) ; 
sritalnCRotttflla, *  cor  xno  ■  * ,corTactad.raf_alsat[4] ;15)i 
arltalnCRoutfila, ’  ao  >  ’ ,corractad.raf.alaat[7] :15}; 

corractad.raf.alsat[7]  :■  raf .alsat [7] ; 
and;  {IF} 

and;  {Procadnra  Calc.corractad_raf_altat} 


Procadura  Tatt.ConTarganca(dalta_raf.alxat 

na>_C0V_lnv 


■atrixBxl ; 
Batrix7x7 ; 
byta; 
boolaan) ; 


Tar  conrafga.flag 
Tar  conTargad 
Tar 

SiiB_Sqnaras , 

Vaightad.RMS  :  doubla; 

taap  :  >atrlx8xl ; 

bagin 

Soa.Sqnaras  ;»  0.0; 
for  i  :■  1  to  7  do 
bagin 

taaipCl}  :■  0.0; 
fo-  j  :*  1  to  7  do 

kanpCij  :•>  tavpCi]  *  dalta.raf.alsat[j]anas.COV_lnT[j,i] ; 
and;  {for  1} 
for  1  1  to  7  do 

Sua_Sqaaras  SoauSquaraa  *  taBp[lj*dalta_raf_alsat[lj ; 

Vaightad.RKS  :<•  8qrt(SoB_Sqnaraa/7) ; 


{Khan  conaargad,  t  last  pass  data  gatharad,  ratnm  boolaan  to  alios  axit} 

IF  ((tfalghtad_Rl(S  <  0.01)  IBD  (consarga.flag  ■  1))  OR  (itaratlon.nua  ■  SO) 
TEEI 

conTargad  tma 
ELSE 

conTargad  falsa; 

{Output  Flag  if  Bayes  Loop  did  not  conaarga.  ia.  itarations  ■  50} 

IF  itaratlon.nua  ■  SO  THE! 

sritalnCRotttf 11a, ’Bayes  loop  did  not  conaerge  for  batch  ’.batch.nua); 
{Khan  conTargad,  sat  conrarga.flag  and  run  onca  aora  for  “last  pass'*  data} 

IF  (Vaightad.RHS  <  0.01)  TREI 
coaaarga.flag  ;■  1; 
and;  {Procadura  Tast.Conrarganca} 

EIO. 
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D.^  DC_OUT  Unit  Source  Code  Listing 


{  lathor:  BHW  } 

{  OxigiaU  Version:  23  Oct  1992  } 

{  Current  ReTition;  30  Oct  1992  } 

{  Version:  2.00  } 

{  Description:  Contains  the  procedures  used  to  outpu'-  data  for  Unit  } 
{  DC.Calc  and  Program  DIFC.  } 


IITERFiCE 
Uses  DC.Init, 
S0P.Matli; 


{argument  types} 

{argument  type  vector,  function  degrees} 


Procedure  Init_Output_Files(f ini,  fin3  :  string); 
Procedure  Close.Output. Filet; 

Procedure  Output.elset (description  :  string; 

elset  :  natrixSzl) ; 

Procedure  Output_Residuals(true_obs  :  sector; 

calc.obs,  residual  :  sector); 
Procedure  Output_COV(descriptian:  string; 

COV  :  matriz?x7); 


IKPLEMEmriOl 

Uses  SGP.Init,  {argument  type  tat.data} 

SGP.Time;  {Function  Epoch.Tlme} 

Procedure  Init_Otttpttt_Files(f ini,  fia2  :  string); 
begin 

Assign (Rotttf ile , ■ork_driseesork_dir>  *R ‘ecopy (f ini ,4 , S) e 

copy(f ini ,10,2)e’ . •♦fin2ecopy(finl ,13,1)) ; 
ResriteCRoutf ile) ; 

isaiga(FVotttf  lie  ,Bork_drise+eork.dir»*F’-*copy(f  ini  ,4,5)* 

eopy(finl,10,2)e*. •♦lin3*eopy(linl,12,l)) ; 
Resrite(FVoutf ile) ; 

Iss ign (LVoutf ile , eork.dr isevsork.dir* 'L •♦copy (finl,4,S)e 

capy(finl ,10,3)e’ . •♦fia3ecopy(fial,13.1)); 
tesrite(lVoutfile) ; 
end;  {Procedure  Init.Otttput.Flles} 

Procedure  Close.Output.Flles; 
begin 

close (Routf ile); 
close (FVotttf ile) ; 
close (LVoutf lie) ; 

end;  {Procedure  Close.Output.Flles) 


Procedure  autpat.elsat(descriptioB  :  string; 

elset  :  matrlxSsl); 

begin 

sritela(toutf ile, •♦♦•eeeee  > , description, • 
sr iteln (Routf ile, •  •); 

eritelB(heutf ile, 'epoch 
sritelB(Reutf ile , ' Juliaa.epoch 
sritelB(Reutf ile, 'elsetCl]  (bstar) 
vritela(RoBtfile, 'elset{3]  (sincl) 


..e...ee.); 


sritela(Rsutfile, 'elsetCs}  (anodee) 

oritelB(Reutfile, 'elsetU}  (so) 
sritelaCieutf ile, 'elaetlSj  (omegas) 


• .Epoch.Time( elset [0] ) : 10 :«> ; 
>,elset(0]:10:a): 
',elset(t);lS,' 

*. elset  (ah  1$,*  Red 
degreesUlset  (3] ) ;  0 : 4 ,  • 
•.elaet(3].lS,>  Red  > 
degrees  U1  set  [3]  }  :  0 : 4 ,  ‘ 
•.elset(4]:lh.>  - 

>. elset (Sh IS,*  Rad  > 


•.elsel[l);U:7); 

I 

^g'}; 

t 

Deg‘>; 

'.elset (4): 11:7); 


degteea(elset(S});a:4.‘  Deg*); 

sriteln(hsutf ile, *elset(al  (sms)  «  *, elset (0} ; IS, *  Rad  e  >, 

degreea(elest(a}) :a;4, *  Deg*>; 

tritela(Routfile,*elset(7]  (xas)  >  * ,elset (7] ; 1$, •  Rad/mla  *  *, 

24o£0/teepieelset (7) ; 13 ; a, *  Res/day  * ) ; 


sritels(Rsatfils,*  '}; 
ead;  {Procedure  Output.Clset.Info) 


Procedure  Output_Retiduals(trus.sbs.  calc.obs,  residual  :  vector); 
begin 

sTitela(Rautfile.**eee  Residuals  for  Batch  *.hatck.aua. ' ,  Ob  *,obatta,*  ••••*); 
sriteia(Rsutf tie, *  ’); 

erltela(houtflle. *True  Obe:  ',true.oberi] :9:6, *  * ,true.ebt(a] :9:0, '  *. 

true.obs(3} ; 10 :4 . •  * , trvc.obstt) .9:0); 
•ritelB(Rsutfile,*Calc  Obs:  ',calc.ebc(l) :D:0. *  * ,calc.obs(l} :9;0. '  *. 

celc.obs(3] :I0:4. '  * .calc.ebs[4] :9:6) ; 
vr itelnlRoutf ile. *Ras ideal:  '.residual(ll :9;6.'  *,reeidualt3} :9;6,'  *. 
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r«sida«lC3] ;  10 : 4 , '  *  ,TMidMl[4]  :9 :6) ; 


•Bd;  (Procador*  Oatpttt.K«sidnBl.s} 

Procador*  Oatpat.COVCdascriptlon:  string; 

COV  :  Bntrixrxr): 

bagin 

nritalndontfila,  *  .dascriptian,  • 

aritala(Boatfila, *  '); 

lor  i  :■  1  to  7  ao 

aritaln«otttfila,CO¥[i,l]:lS,»  »,C0V[i.a]  :16.*  » :I5,  > 

C0V[i,4]:15.'  • .COVCi.6] :1S,>  »,C0¥tl,63 :15.»  *.C0VCi.7]  :15); 
srltalndontfila,' 
and;  {Praradnra  Oatpnt_naB.COV} 

BID. 
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D.5  LOWB  Unit  Source  Code  Listing 


{  iuthor; 
{  OrigiaU.  Varsioa: 
{  CvrrMt  tvTisioa: 
{  Varaioa; 


Bin 

33  Oct  1993 
30  Oct  1993 
3.00 


{  Daacriptioa: 

{ 

{ 

< 

i 

{ 


Coatalaa  th«  procadaras  nsad  to  raad  aaaaor  Lat ,  Lon ,  and  } 
tit  izom  tha  fila  SEISOBS.OBS  into  a  3-D  Array  (Oaodatic.SSI) ,} 
and  raads  aaaaor  al^  aalaaa  froa  tha  fila  SEISOAS.COV  and  } 
calcnlataa  aach  aaaaora  coaarianca  aatrii  (Qlnv.SSI) .  } 
Tha  arraya  ara  indaxad  by  a  conaacntiaa  cnabar  (1-30)  ahich  } 
ia  croas  .ofarancad  to  tha  aaaaor  ID  naabor  naing  tha  Paacal  } 
P05  faactioa  and  a  atrlag  of  all  aanaor  ID  aoabara  idaatifiad  } 
aa  POSatriag.  } 


IITCIFACS 

Uaaa  OC.Init;  {argnaant  typo  aatrixlbd} 


Procadora  Load.Sanaor_Data(Tar  Oaodatlc.SSI.  Qiaa.SSI  :  aatrizNxd); 


mPLOEITATIOl 

Uaaa  SOP.Init,  {Procadora  Progriia_Iaitializa) 

SOP.Rath ;  {f nnct ion  tadlana) 


OBSflla,  {Var  for  tha  *.0B$  fila  containing  aanaor  poa  data} 

COVfila  :  tart;  {Var  for  tha  a.cOV  fila  containing  aaaaor  coy  data) 


Procadora  Load.Sanaor.Oata(aar  Caodatic.SSI,  Qiov.SSI  :  natrizllad): 
*ar 


nana 

aaaaornua 

l.j.aita 

aignal  .aigiu3.aina3,aifna4 
latitoda.Ioagitoda.altitada 


atring[33) ; 
atringCt] ; 
byta; 
donbla; 
doobla ; 


bagia 

for  i  :•  1  to  naz.aitaa  do  {lait  Oaodatic.SSf  h  Qino.SSt  arraya) 
far  j  :>  1  ta  4  do 

bagia 

Caodatie.SSBCi.j]  :>  0.0; 

Qiaa.SSIti.j}  ;•  0.0; 
and;  (for  j) 


(  Valiioa  for  Caodotic  Latitado,  Loagitoda,  and  Altilodo  of  oach  ooaaor) 


(  Soorca:  IFSPACCCOK  SATTtACt  Prograa.  apdatad  by  SSC  OAB  ) 

(  > 

{  totatloo;  Latitado;  forth  ia  •  Sooth  io  -  ) 

{  Loagitado;  Aloaya  oaprooood  as  •  Cant  ) 

(  Altitado:  Cnproxoad  ia  ha  ittSL  } 


aaaiga(Cf$f  ilo  .data.dr  ivoodata^dir* ‘SmOBS .  UfS  •> . 

raaot(Of$fila): 

aitaatrlag  ;•  '  '; 

ahilo  not  tor  (OtSfllo)  do 

bagia 

faadla(itfSrita,aaBoarBaai.aa»a.latltiado.lo»g|iada.altitad<>) ; 
aitoatriag  ;•  aitoatring  *  Capy(aoaaora«ia,l  .4) ; 
aito  ;•  Poalaoaaoraan. aitoatriag)  dia  4; 

Ooodotic...S$f(aito.l}  :•  tadiaaavlatitado);  (coavort  dog  ta  rodiana) 

Cood.atic.SSf(aita.2}  .*  tad  tana  (loagitado);  (toaoort  dog  to  radiana) 

0oadotiic.SSf(oita.3)  :•  altitado  •  O.OOi;  (toaoort  a  to  kn) 

oad;  (ohila  aot  oaf) 
cloa«(&Ufila); 


(taoorao  Soaaor  CooariaiMo  (Qiao.SSt)  Ratria  for  all  ooaaaro  ) 


aaaigi<l^fUo.4aia.4ri«oo4ata.dir<*mS0U.C0V’). 
roBat(COVfi)o). 
ohila  aot  tor  (COYfila)  do 
^gia 

hoadlaiCOVfilo.aaoutorcaiB.aoaoo.aigaal  .atgaal.oigjaaS.aignat). 

Oita  ;•  Poalaanaorsas.aitoatriag)  di»  4, 
tr  aigiaai  •  0  0 

Tftf  (iavoTco  of  Aninath  or  light) 

Qlao.$St{«ita.ll  .*  0  O  (Atcaaoloa  oigaa  (ladiaM)  a^oarod) 

*^Siao.S$f (.oito.li  .•  l/a^r(radiana(aignal)). 

If  aIgMl  a  0  0 
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{in««TS«  of  Elovotion  or  Docloaation} 
tsifu  (ladiiB*)  sqnorod} 


TIBI 

qiiT.SSlfsito.2]  :«  0.0 
SUE 

qia*_SSI(sitc,2J  :■  l/«ir(r)idius(*igpa3)); 

IF  sigu«3  >  0.0 
TIEI 

QiBT_SSI[sito.3]  ■-*  0.0  linooisc  of  Eoa^o  si^o  (kk>  oqxarod  <‘C  ror't} 

EI.SE 

QiBT.SSI[sito.3l  l/s<;r(sig*a3> ; 

IF  xiga>.4  >  0.0 

nzi 


qiar_SSl{sito.4]  :»  0.0  {intcrao  of  Eango  iUiro  (c.k/s«c)  si^ts  covur^i  er  ^oro 

EISK 

Qiav.mtoito.d]  :■  l/s<iT(oig»o4}; 

«ad;  {skil*  not  oelf} 

«lato(C0Tf il«} ; 

ottd;  {Procodoxo  I^ad.$«ncor_Cat»> 

EIS. 
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D.6  PROP  Unit  Source  Code  Listing 


«E+.1*> 

Hniic  ftof. 


{  Author: 
{  Original  Varsion: 
{  Carxtnt  Karislon: 
{  Earsion : 


Bin  } 

Oct  1992  } 
30  Oct  1992  } 
1.20  } 


{  Dascription: 
< 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 


Costaina  a  procadura  xtsad  to  propagata  orbital  alaaeuta  } 
(batar,  xiscl,  a,  suoda,  oaega,  xa.  xn)  and  tba  poaition  } 
coTarianca.  It  firat  propagataa  :for  tha  tiaa  prop.tiaa,  } 
typically  tha  input  tin*  of  tba  last  obaarTation.  It  then  } 
calculataa  tba  tina  of  tba  laat  ascanding  noda  croasing  } 
and  propagataa  tha  alanants  and  Phi  aatrix  to  that  tina.  } 
It  than  daaaigbta  tha  COV  matrix  sitb  an  axponantial  factor} 
and  chacha  if  tha  diag  alanants  of  tba  COV  axcaad  a  limit .  } 
If  axcaadad,  tba  alanant  is  rasat  to  tba  limit.  } 
This  procadura  givas  only  a  first  ordar  propagation  using  } 
only  J2.  } 


IBTKXFACB 

Usas  DC.Init,  iargonant  typas} 

DC_0ut; 


Procadura  PropagataCtar  prop.tima  :  donbla; 

Input.alsat  :  iiatrixSxl; 
input.COV  :  natrixTxT; 
var  prop.alsat  :  aatrixSxl; 

T^r  daBaightad.prop.COV  :  matrixTxT); 

IHPLEHEITATIOI 

Ucas  SGP.Intf,  {constants} 

SOP.Hath;  {functions  Cuba  A  Poser} 

Procadura  PropagataCvar  prop.tima  :  donbla; 

Input.alsat  :  matrixSxl; 
input.COV  :  matrixTxT; 

Tar  prop.alsat  :  matrixSxl; 

Tar  daBeigbta<l.prop.COV  :  natrix7x7); 


const 

aa.sqr  »  aa*aa; 

Tar 

i.j 

apsilon, 

dndnk, 

dndsps, 

dapsdi, 

depsda, 

nz, 

xka, 

eps2,sp83,aps4, 
batarl.rincll  .model, 
el , omegal , xml . xnl , 
bst ar2 ,zincl2 , xnode2 , 
e2 , Qmega2 , xm2 , xn2 , 
nu.d, 
xm.d, 

bstar3,xincl3,znode3, 
e3 , omegas , xmS ,  xn3 , 
deit  a.pr op.t  ima , 
prop.tiae.min, 
meurata, 

Weight.Factor 

COV.limit 

Phi, 

Phi.COV, 

prop.COV 


{(Radius  of  the  earth  in  Distance  Unit)  squared} 

:  byte;  {counters} 

{small  t  used  in  expansion  of  xnz  in  minutes*  (4/3)} 
{Partial  mean  motion  w.r.t.  Kozai  mean  motion} 
{Partial  mean  motion  B.r.t .  epsilon} 

{Partial  apsilon  B.r.t.  inclination} 

{Partial  apsilon  B.r.t.  eccentricity} 

{Kozai  mean  motion  in  radians  per  minute} 

{square  root  of  ge  (earth  gras  constant)} 

(epsilon  squared,  cubed,  *4} 

{input  elements} 

{input  elements} 

{propagated  elements  at  last  observation} 
{propagated  elements  at  last  obaervation} 

{true  anomaly  desired  (at  node  crossing)} 

{mean  anomoly  desired  (at  node  crossing)} 
{propagated  elements  at  ascending  node} 

{propagated  elements  at  ascent ind  node} 

{time  since  last  node  passage} 

{time  of  propagation  in  minutes} 

{memory  "forgetting"  rate} 

;  double ;{dnseighting  factor  for  COV  matrix} 

;  vector ; {Limits  on  size  of  diag  elements  of  COV} 

:  matrlx7x7; 


begin 

prop.time.min  !»  prop.time  ♦  24  *  60; 

{assifm  input.elset  array  to  input  element  names} 


bstarl 

: »  input.elset [1] ; 

xincll 

input.elset  [2] ; 

model 

:»  input.elset [3] ; 

el 

:■  input.elset [4] ; 

omegal 

; >  input.elset [6] ; 
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ml  :=  input_els«t[6] ; 

xnl  ;«  input_#l8*t[7] ; 

{dafin*  conataats} 


3tk«  :»  Sqrt(3600*ga/Caba(xtaBp«r));  {DO~3/miii"2} 

jpallon  :■  (3aae_sqT*J2*(l+3*cos(3*xliicll)))  / 

(8*PoBer (1 -sqr (al ) , (3/2) ) aPosar (xke , (4/3) ) ) ; 
ap82  :>  apalloa  a  epsilon; 

ap83  :>  apsilon  a  eps2; 

ep84  :>  aps2  a  ap82; 

nz  :«  xnl  -  ap8ilonaPower(xnl,(7/3)) 

+  (7aap82aPoBer(inl,(H/3)))  /  3 
-  7aeps3aPoBei'(xnl,5) 

+  (1925aep84apoBar(xnl,(19/3)))  /  81; 
dndnlc  1  -  (7.0  a  epailon  a  PoBer(inl,(4/3)))  /  3.0 
+  (77.0  a  ep82  a  PoBer(xnl,(8/3)))  /  9.0 
-  (35.0  a  ep83  a  PoBer(xnl,4)) 

+  (36576.0  a  ap84  a  PoBar (xnl, (16/3)))  /  243.0; 
dndapa  :>  -  PoBar(xnl,7/3) 

+  (14.0  a  epsilon  a  PoBar(xnl,(ll/3)))  /  3.0 
-  (21.0  a  eps2  a  PoBar(xnl,6)) 

+  (7700.0  a  op83  a  PoBar(xnl,(19/3)))  /  81.0; 
depsdi  :■  -  (9.0aaa_8qraJ2asin(2axincll))  / 

(4.0aPoBar(l-8qr(al) ,(3/2))aPoBer(xko,(4/3))) ; 
depsda  :«  (9.0aalaaa_8qraJ2a(l+3acos(2axincll)))  / 

(8.0aPoBor(l-sqr(el) ,(5/2))aPoBar(xke,(4/3))) ; 

{leB  Propagated  elements  at  time  of  last  observation) 


bstarl 
zincl2  ;• 
xnode2  ; > 

e2  :« 
omega!  :  a 

zm2  :■ 
xn2  :  = 


bstarl ; 
xincll ; 

Fmod2p(xnodel  -  (3aaa_8qraJ2aPoBor(nz,(7/3))acos(xincll))aprop_timojBin  / 
(2asqr(l-sqr(el))aPaBer(xka,(4/3)))); 
al; 

Fmod2p(omegal  +  (3aae_8qraJ2aPoBer(nz,(7/3))a(3+Saco8(2axincll)))aprop_tima_min  / 
(8a8qr(l-8qr(al))aPoBer(xke,(4/3)))); 

Fmod2p(xmlaxnlaprop_time.mln) ; 
xnl; 


{laB  Propagated  elements  at  time  of  ascending  node  passage) 

nu_d  tvopi  -  omega!;  {desired  true  anomaly  at  ascending  node) 

IF  nu_d  <  pi 
THE! 

xm_d  lrcCos((s3'K;os(nn_d))/(l+e2aCos(nn_d))) 

-  e2aSin(lrcCos ( (e2+Cos (nu.d) )/(l+e2aCos (nu_d) ) ) ) 

ELSE 

im_d  .•■tBopi  *■  (ArcCo8((a2+Co8(nn_d))/(l+a2aCos(nu.d))) 

-  a2aSin(ircCos ( (a2eCos (nu_d) )/(l+a2aCos (nu_d) ) ) ) ) ; 


IF  xm2  >  xm_d 
THEI 

delta.prop.time  ;■  (xm.d  -  xm2)  /  xn2 
ELSE 

dalta.prop.tima  :■  (xm_d  -  xm3  -  tBopi)  /  xn2; 
prop.tima.min  prop.tima.min  *  dolt a.prop. time; 


bstarS 
xincl3  :■ 
xnada3  ;> 

a3  :■ 

ouaga3 

x«^  ;■ 

xn3  :■ 


bstar! ; 
xlncl! ; 

Fmod2p(xnoda2  -  (3aaa.sqraJ3aPoBor(nz, (7/3))acos(xincl2) )*dalta.prop_tims  / 
(2asqr(l-sqr(a2))aPoBar(xka,(4/3}))); 


•2; 

Fmod2p(omega2  +  (3aaa,8qraJ2aPoBar(nz,(7/3))a(3*5aeo8(2axincl2)))adalta.prop.tlmo 
(aasqr (l-sqr (a2) ) aPoBar (xka, (4/3)) ) ) ; 

Fmod2p(xm2a'xn2adalta_prop.time) ; 
xn2; 


/ 


{assign  propagated  alamants  to  prop.alsat  array) 


prop. time 
prop.alsat [0] 
prop.alsat [1] 
prop.alsat [3) 
prop.alsat [3] 
prop.alsat [4] 
prop.alsat {5) 
prop.alsat [6] 
prop.alsat [7] 


■  prop.tima.min  /  (34*60); 

a  input. alsat{0]  *  prop.tima; 
a  bstarS; 
a  xincll; 
a  xnodaS; 

■  e3; 

a  om*ga3; 
a  xm3; 
a  xn3| 


{Initialize  the  Phi  matrix  to  an  Identity  Katxii) 
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for  i  :■  1  to  7  do 
lox  j  :■  1  to  7  do 
IF  i  -  j  THE! 
PhiCi.j]  1.0 


ELSE 

PhiEi.j] 


0.0; 


{Calculato  tho  non-z«ro  valaos  of  the  Phi  Matrix} 

Phl[3,2]  ;>  (3*J2*pzop_tia«_:ilnaa«_8qr*Po0«r(nz,(7/3)}aSin(xincll))  / 

(2*8qr(l  -  8qr(al))*Po8or(xk«,(4/3))) 

-  (7*J2*prop_tlaw_Bin*aa_8qT*Co8(zijicll)*PaB8r(nz, (4/3))*dnd«p8*dep8dl)  / 

(2*sqr(l  -  8qr(al))*PoBer(xk8,(4/3})): 

Phi[3,4]  :»  (-6ael*J2»prop.tlae.minaa«_sqr*Co8(ilncll)*PoB8r(nz, (7/3)))  / 

(PoBorCl  -  sqT(al),3)*PoBar(xka,(4/3))) 

-  (7a)2*prop_tiiia_minaae_8qraCo8(zlncll)*PoBar(nz, (4/3))*dndeps*depsda)  / 

(2*sqr(l  -  8qr(al))*PoBar(xka,(4/3))) ; 

Phi[3,7]  :■  (-7aJ2aprop_tlaajoin*aa_8qr*Co8(xincll)»PoBar(nz,(4/3))adndiik)  / 

(2a8qr(l  -  8qr(al))aPoBar(xka,(4/3))); 

Phl[5,2]  :«  (-16aJ2*prop_tiaia.ainaaa_8qr*PoBar(nz,(7/3))aSin(2axincll))  / 

(4a8qr(l  -  8qr(al))aPoBar(xka.(4/3))) 

+  (7aJ2aprop_tlMa_Blnaaa.sqr*(3  +  SaCos(2axliicll))aPoBar(nz,(4/3))*dhdapsadapsdl)  / 
(SaxqrCl  -  8qr(al))apoBar(xka,(4/3))) ; 

Phl[S,4]  :■  (-3aalaJ2aprop_tiBa_Bliiaaa_xqra(3  +  SaCo8(2*xincll))aPoBar(nz, (7/3)))  / 
(-2aPoBar(l  -  8qr(al) ,3)aPoBar(xka.(4/3))) 

*  (7*J2aprop_tiBa_alnaaa_xqra(3  a  5aCo8(2*xincll))aPoB8r(nz,(4/3))adndap8adapsda)  / 
(8*8qr(l  -  8qr(al))aPoBar(xka,(4/3))) ; 

Phi[6,7]  :■  (7aJ2aprop_tl8M_Bln*aa_8qr*(3  +  6aCos(2*xincll))aPoBar(nz,(4/3))adndiik)  / 

(8*8qr(l  -  8qr(al))aPoBar(xk8,(4/3))); 

Phi [6, 7]  ;■  prop_tiaa_nln; 

{Calcolata  tha  propagatad  COV  matrix} 

for  i  :■  1  to  7  do 
for  j  !■  1  to  7  do 

Phi.C0V[i,j]  !■  PhiCi.l]  *  input. CO V[l,j] 
a  PhiCl,2]  a  inpttt.C0¥[2.J] 
a  Phi[i,3]  a  inpttt.C0V[3, j] 
a  Phi[i.4]  a  inpttt.C0V[4, j] 
a  PhiCi.S]  a  input.COVCB, j] 
a  PhiCi.6]  a  input.C0VC6. j] 
a  PhiCi,7]  a  input.C0V[7, j] ; 

for  i  :«  1  to  7  do 
for  j  :■  1  to  7  do 

prop.COVCi.j]  !-  Phi.COVCi.l]  a  Phitj.l] 
a  Phi.C0V[i,2]  a  Phi[j,2] 
a  Phi.C0V[i,3]  a  PhiCj.S] 
a  Phi.C0VCi,4]  a  Phi[j,4] 
a  Phi.C0V[i,6]  a  PhiCj.5] 
a  Phi.C0V[i,6}  a  Phi[j.6] 
a  Phi.C0VCi,7]  a  Phl[j.7]: 

(Davaight  tha  propagatad  COV  Batrix} 

Bamrata  ;■  1.0  -  po>ar(0.28,(l/UJPI)); 

Uaight.Factor  8qr(axp(-aaBrataa-LUPI)) ; 
for  1  :■  t  to  7  do 
for  J  :■  1  to  7  do 

daaaightad.prop.COVCl, j]  :■  (prop.C0V(l, j}  a  Uaight.Factor) ; 

(Chack  for  diag  varianca  tarma  azcaadiag  liait  t  raaat  to  Halt  If  arcaadad} 


for  _ 
COV 

for 


li'i-itH]' 

i:»  I  to  f  I 


do 

:■  I.OE-IS; 
do 


if  da«aighta4.prop.C0V[l,i]  < 
da«aightad.prep.COV(i.i]  :• 


COV.llaitCl]  than 
COV.liBit[U: 


(Procadura  Prop.Phi} 


and; 

E>0. 


Appendix  E.  SATELLITE  COMPOSITION  ANALYSIS 


E.l  Cumulative  Distribution  and  Frequency  Histograms 

This  section  includes  the  cummulative  distribution  and  histogram  frequency  plots  of 
all  satellites  included  in  the  current  satellite  population  as  investigated  in  this  research. 
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Figure  E.2.  Histogram  and  Distribution  Plots  —  Eccentricity,  Epoch. 


Figure  E.3.  Histogram  and  Distribution  Plots  —  Perigee,  NORAD  Catalog  Number. 
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Figure  E.4.  Histogram  and  Distribution  Plots  —  Inclination,  Mean  Anomaly. 


Figure  E.5.  Histogram  and  Distribution  Plots  —  Mean  Motion  Time  Derivatives. 


Figure  E.6.  Histogram  and  Distribution  Plots  —  Node,  Kozai  Mean  Motion. 


E.2  Scatter  Plots 


Two-variable  scatter  plots  were  done  for  all  possible  combinations  of  two-line  ele¬ 
ment  set  variables.  Only  plots  that  were  between  variables  of  interest  or  that  showed  an 
unexpected  correlation  are  included  in  this  appendix  section  or  in  the  body  of  the  text. 


Figure  E.7.  Scalier  PU>1  it*  and  }i{cau  Molion  Dol  over  2. 
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Oouible  Doi  over  t  in  rev/d«y* 
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Figure  E.8.  Scalier  Plot  —  M«ao  Moliou  DoubW  Dot  ov«r  6  and  Meau  Motiou  t)ot  ovw 

2. 
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Figure  E.IO.  Scatter  Plot  —  Eccentricity  and  Inclination. 
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E.S  Orbital  Element  Classification  Scatter  Plots. 

Included  in  this  section  are  the  plots  showing  how  the  satellites  fell  into  the  different 
Orbital  Element  Classes.  The  six  plots  are  for  each  inclination  class.  The  grid-lines  on 
each  plot  represent  the  mean  motion  and  eccentricity  combinations. 
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MEAN  MOTION  AND  ECCFHT^ICITY  SCATTER  PLOT  FOR  INCLINATION  CLASS  1 
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Figure  E.ll.  Classification  P'-jakout  —  Inclination  Class  1. 


KEAN  MOTION  AND  ECCENTRICITY  SCATTER  PI.OT  FOR  INCLINATION  CLASS  2 


Figure  E.12.  Classification  Breakout  —  Inclination  Class  2. 
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Figure  E.13.  Classification  Breakout  —  Inclination  Class  3. 


Figure  E.14.  Classification  Breakout  —  Inclination  Class  4. 
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Koz»l  Mean  Motion  in  rev/day 

Figure  E.15.  Classification  Breakout  —  Inclination  Class  5. 


MEAN  MOTION  AND  ECCENTRICITY  SCATTER  PLOT  FOR  INCLINATION  CLASS  S 


Figure  E.16.  Classification  Breakout  —■  Inclination  Class  6. 
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Appendix  F.  SAMPLE  SATELLITE  SELECTION 


F.l  FORTRAN  Source  Code  used  to  Divide  Satellites  into  Classes 


DOUBLE  PRECISIOH  THOPI,  DEGTORAD,  EPOCH,  XHDT2Z,  XINCL 
DOUBLE  PRECISION  XNODEZ,  EZ.  OHEGAZ,  XHZ,  XNZ,  XNDD6Z,  BSTAR 
DOUBLE  PRECISION  CLXNZ(1:4).  CLEZ(1:3).  CLXINCL(1:6) 

INTEGER  COUNTER,  SATOLD,  SATREJ,  REJOLD,  LINEl,  SATNDl 
INTEGER  IXNDD6Z,  lEXP,  IBSTAR,  IBEXP,  LINE2,  SATN02 
INTEGER  I,  J,  K,  UNITNUM 
CHARACTER«30  FILENANE 
CHARACTER*69  TLEPTl,  TLEPT2 

DATA  CLXNZ/  0.02792S268,  0.0S52543,  0.0675843,  0.0743668  /, 

:  CLEZ/  .179665,  .47951,  1.00000/, 

:  CLXINCL/  1.05716,  1.16715,  1.6708,  1.98444,  2.08444,  3.141593/ 

:  COUNTER/  0  /,  SATOLD/  0  /,  SATREJ/  0  /,  REJOLD/  0  /, 

:  TWOPI/  6.283186307179686477D+0  / 

DEGTORAD  -  TWOPI/360 . OD+0 

OPEN (UNIT-60,  FILE-* 1990. tie »,  STATUS-* OLD*) 

0PEN(UNIT-61,  FILE-*oe9003.1ix*) 

OPEN (UNIT-62 ,  FILE- *  f irBtB_9003 . tie  * ) 

10  READ  (60,  801,  END  -  999)  LINEl,  SATNOl,  EPOCH,  XNDT2Z, 

:  IXNDD6Z,  lEXP,  IBSTAR,  IBEXP 

READ  (SO,  802,  END  »  999)  LINE2,  SATN02,  XINCL,  XNODEZ, 

:  EZ,  OHEGAZ,  XHZ,  XNZ 

IF  (((LINEl. NE.l). OR. (LINE2.NE. 2)). OR. (SATNOl. NE.SATN02))  THEN 
PRINT  *,  LINEl,  LINE2,  SATNOl,  SATN02,  EPOCH 
SATREJ  -  SATNOl 
GOTO  10 

ELSE  IF  (XNZ  .LT.  O.OD+0)  THEN 
PRINT  *,  SATNOl,  XNZ 
SATREJ  -  SATNOl 
GOTO  10 

ELSE  IF  (DBLE(IBSTAR)*1.0D-6*10.0**(IBEXP)  .GT.  l.OD+0)  THEN 
PRINT  ♦,  SATNOl,  IBSTAR* l.OD-6* 10.0** (IBEXP) 

SATREJ  -  SATNOl 
GOTO  10 

ELSE  IF  (EPOCH  .LT.  90061.0)  THEN 

C  PRINT  *,  SATNOl,  EPOCH 

SATREJ  -  SATNOl 
GOTO  10 

ELSE  IF  (SATNOl  .EQ.  SATOLD)  THEN 
GOTO  10 

ELSE  IF  (SATNOl  .EQ.  SATREJ)  THEN 
GOTO  20 
ELSE 

IF  (SATREJ  .HE.  REJOLD)  THEN 
PRINT  *,  SATREJ 
REJOLD  -  SATREJ 
GOTO  20 
ELSE 
GOTO  20 
ENDIF 
END  IF 

20  BACKSPACE(UNIT-60) 

BACKSPACE(UNIT-SO) 

READ  (60,  800,  END  -  999)  TLEPTl 
READ  (60.  800,  END  «  999)  TLEPT2 

REJOLD  -  SATREJ 

XNDD62  -  DBLE(IXNDD6Z)*1. 00-6*10. 0**(IEXP) 

BSTAR  -  DBLE( IBSTAR) *1.00-6*10.0** (IBEXP) 

XNODEZ  -  XHOOEZ*DEQTORAD 
OHEGAZ  -  ONEOAZ*DEOTORAO 
XHZ  -  XHZ*DEQTORAD 
XINCL  -  XINCL*DEQTORAD 
XNZ  -  ZNZ*TVOPI/1440.0D>0 
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XKDT2Z  »  XNDT2Z*TW0PI/ (1440. 00+0*1440, OD+0) 

XHDD6Z  -  XNDD6Z+TV0PI/ (1440 .00+0*1440 . 00+0*1440 . 00+0) 
SATOLO  -  SATNOl 
COUNTER  -  COUNTER  +  1 


I  -  1 
J  -  1 
K  -  1 

30  IF  (XNZ  .GT.  CLXNZ(I))  THEN 
I  «  I  +  1 
GO  TO  30 
END  IF 

40  IF  (EZ  .GT.  CLEZ(J))  THEN 
J  -  J  +  1 
GO  TO  40 
END  IF 

60  IF  (XINCL  .GT.  CLXINCKK))  THEN 
K  -  K  +  1 
GO  TO  60 
END  IF 


FILENAME  -  >oa9003_xiiz’  //  CHAR(48+I)  //  >.ez’  // 

:  CHAR(48+J)  //  '_xincl»  //  CHAR(48+K)  //  Mix’ 

UNITNOM  -  100*1  +  10*J  +  1*K 
OPEN  (UNIT-  UNITNUM,  FILE  -  FILENAME) 

WRITE (UNITNUM,  803)  EPOCH,  COUNTER,  SATNOl, 

:  XNZ,  XNDT2Z,  XNDD6Z, 

:  XINCL,  XNODEZ,  OMEGAZ, 

:  EZ,  BSTAR,  XNZ 

WRITE(61,  803)  EPOCH,  COUNTER,  SATNOl. 

:  XNZ,  XNDT2Z.  XNDD6Z, 

:  XINCL,  XNODEZ.  OMEGAZ, 

:  EZ,  BSTAR,  XNZ 

WRITE(62,  800)  TLEPTl 
WRITE(62,  800)  TLEPT2 

GOTO  10 


800  FORMAT  (A69) 

801  FORMAT  (II,  IX,  16,  IIX,  F14.8,  IX,  F10.8,  IX,  16,  12,  IX,  16,  12) 

802  FORMAT  (II,  IX,  16,  IX,  2(F8.4,  IX),  F7.7.1X,  2(F8.4,  IX),  F11.8) 

803  F0RMAT(F14.8,1X,I6,1X,I6,3(/,3(1X.E16.8))) 


999  CL0SE(60) 

CL0SE(61) 
CL0SE(62) 


DO  901,  I  -  1,4,1 
DO  901,  J  -  1,3,1 
DO  901,  K  -  1,6,1 
UNITNUM  -  100*1  +  10*J  +  1*K 
CLOSE (UNITNUM) 

901  CONTINUE 


END 


F.2  Example  of  FORTRAN  Output 


file  oe9003_xnzl_ezl_xincl6 


90061.08689731  1901  7369 
0.13404702E-01  0.60601710E-12 
0.21824330E+01  0.48838449E+01 
0.81123000E-02  O.OOOOOOOOE+00 


O.OOOOOOOOE+00 

0.66970479E+00 

0.66344499E+01 
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F.S  Satellites  that  Failed  Satellite  Division  Criteria 


Satellites  that  did  not  have  a  two-line  elenent  set  in  our  data  file  after  1  March  1990 
but  did  have  an  entry  between  1  January  and  28  February  1990.^ 

02473 

Satellites  that  had  B*  >1.0  on  first  and  possibly  subsequent  occurrances  of  two-line 
element  set  entries  after  28  February,  but  did  have  at  least  one  entry  with  a  5*  <  1.0.^ 


00579 

02372 

02933 

05316 

06192 

08785 

09330 

09468 

09635 

11550 

16103 

18615 

18672 

18995 

19164 

19394 

19452 

19502 

19644 

19751 

19964 

20004 

20044 

20201 

20454 

Satellites  that  had  5*  >  1.0  on  first  and  possibly  subsequent  occurrances  of  two-line 
element  set  entries  after  28  February,  and  did  not  have  one  entry  with  a  B*  <  1.0.® 

11888  12078  14182  15147  18231 


F.4  Mathamatica  Function  for  Sample  Satellite  Selection 


«Stati«tic8‘De8cripti»«Stati9tic8‘;  «3tati»tic8'Continuou8Di8tribution»' ; 
«StatlBtics'OataKanipulation* ; 


(«  This  function  tolocta  oq«  2*line  OE  s«t  aith  the  least  •) 
(*  deviation  Iron  the  sean,  using  the  elenents  specified  in  Vnean  •} 
(*  belov.  •} 
(*  Exaaple  useage:  •) 
(•  select[""/sath/oe/oe9003_xn*l_ezl_xincll.f i*"!  •) 
(•  Liaitations:  •) 
(*  It  requires  nore  than  one  3-line  OE  set  to  choose  froa  •) 
(*  It  chooses  the  second  2-line  OE  set  if  there  are  only  •) 
(*  teo  to  choose  froa.  •) 


select [filenaae.l  :>  Block!  {oe,  epoch,  counter,  satno,  xnz,  xndt2r,  xnddfic, 
xincl,  modes,  oaegas,  es,  bstar,  sax.  Vaean,  Vstdev,  partoe,  ezpon,  sel}, 
oe  ■  ReadListtf ilenaae.  Table [Kttaber,  {13)3]; 
epoch  ■  Transpose  Coe]  Cnij  : 
counter  *  Transpose [oe] CCS] 3 : 
satno  ■  Transpose LoeJ Cl^J} ; 
xnz  *  Transpose  Coe]  CC^p  : 
zndt2E  *  Transpose  Coe]  US}] ; 
mddSz  ■  Transpose  Coe]  C  (SI  ]  : 
xincl  ■  Transpose  [oe]  C  CT]  ]  : 
modes  -  Transpose  Coe]  CCS]} ; 
oaegas  *  Transpose  Coe] [19]]  : 
es  •  TransposeCoejfflO]]; 
bstar  *  Transpose  toe]  Ull}} : 
xas  -  Transpose  toe] tC 12]]; 

Vaean  ■  {Neantms}  ,  Ilean[xndt2s],  KeanCxincl],  ttean(mdd6e] . 

Heanfmodez] ,  HeanCoaegas] .  NeanCez],  Reantbatar]} ; 

Vstdee  •  CStandardOeeiatiooCxns] .  StandardOeeiatioaCmdt3z] . 


'These  satellites  were  cxcludeid  from  further  analysis. 

*Thcse  satellites  were  included  in  further  analysis  for  the  TLE  entry  edth  B'  <  l.O. 
^These  satellites  were  excluded  from  further  analysis. 
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partoe 

ezpon 

sel 


StandardDeviat ion [zincl] ,  StandardOeviat ion [zndd6z] , 
StandardDeviationLxnodez]  I  StandardDeTiation[oaegazJ , 
StandardDeviationCez] ,  StandardDeviationCbstar]}; 

{znz,  zndt2z,  zincl,  zndd6z,  znodez,  oaegaz,  ez,  bstar}; 
Product [II [VatdevCCi]]  >  0,  PDF[  HoraalDistributionC 
VaeanCii]],  Vstdev[[i]]] ,  partoe[[i]]]  ♦  (Sqrt[2Pi]  • 
VatdevCEi]]),  1],  {i,8}]; 


■  Last [Sort [transpose C  [ezpon,  epoch,  counter,  satno,  znz,  zndt2z, 
znddSz,  zincl,  znodez,  oaegaz,  ez,  bstar,  zaz}]  ]  ]; 

{sel[[2]]  ,sel[[3]]  .sel[[4]  j  ,sel[[6j]  .sal[[6]3  ,sel[[7]]  ,sel[[8]]  ,8el[[9]J , 
sel[[10]]  ,8el[[ll]]  ,8al[[12]]} 


F.5  Example  of  Mathematica  Input  for  Sample  Satellite  Selection 


In[2] :«  select[''~/aath/oe/oe9003_znzl_ezl_zincll.liz"] 


-12 

0ut[2]-  [90089.8,  4314,  16141,  0.00426943.  -2.06046  10  .0.,  0.08716, 

>  1.26768,  3.41066,  0.0012268,  0.000099999,  2.87378} 


F.6  Selected  Sample  Satellite  Two- Line  Element  Sets 
CLASS:  1~1-1 

1  15141U  83  66  F  90089.84366136  -.00000068  00000-0  99999-4  0  06562 

2  15141  4.9939  72.6272  0012258  195.4106  164.6656  0.97618901  8101 

CLASS:  1-1-2 

1  152S9U  84  95  A  90104.43454589  .00000021  00000-0  14999-1  0  06436 

2  15259  64.7864  162.4815  0018219  201.8083  158.2010  2.13103289  43653 

CLASS:  1-1-4 

1  08822U  76039  C  90062.13597810  .00000003  00000-0  99999-4  0  05949 

2  08822  109.8562  320.0595  0042402  261.2019  98.3915  6.38859342322640 

CLASS:  1-1-6 

1  07369U  74  54  A  90061.08689731  .00000020  00000-0  00000+0  0  09770 

2  07369  125.0442  279.8237  0081123  37.7983  322.8302  3.07213139175423 


CLASS:  1-2-1 

1  12497U  81  50  B  90088.32850727  .00016164  00000-0  36133-2  0  03019 

2  12497  23.9029  101.2132  4582441  111.9356  302.0469  6.29011949171514 

CLASS:  1-2-2 

1  12827U  81  88  F  90089.41666294  -.00000000  00000-0  99999-4  0  09685 

2  12827  63.3458  225.1199  4536648  331.3832  9.8124  5.48793671171338 

CLASS:  1-2-4 

1  16614U  86  19  B  90121.16504499  .00000058  00000-0  51294-3  0  01217 

2  16614  98.8247  43.7071  4697651  253.3377  51.5618  5.50352988  84146 


CLASS:  1-3-1 

1  13958U  67  1  AL  90089.18539481  .00009294  00000-0  60407-2  0  08470 

2  139S8  26.8024  177.9088  6611432  174.3619  200.5635  3.11659651113951 


F-4 


CLASS:  1-3-2 

1  14199U  83  73  A  90089.01439699  .00000107  00000-0  21689-2  0  04476 

2  14199  64.0314  151.8929  6984908  267.2024  18.2016  2.30622784  52889 

CLASS:  1-3-3 

1  14041U  83  38  E  90094.88172405  -.00000073  00000-0  99999-4  0  03588 

2  14041  66.7266  183.3419  6291201  269.0441  23.4762  2.03595797  61648 


CLASS:  2-1-1 

1  o6053U  60I0T  5  90062.60444147  -.00000024  00000-0  99999-4  0  02939 

2  00053  47.2785  159.8122  0099598  163.6009  196.8084  12.16554951321254 


CLASS:  2-1-2 

1  104400  76067  R  90061.69524654 

2  10440  65.6201  178.4067  0731810 

CLASS:  2-1-3 

1  102930  77  79  J  90066.05843306 

2  10293  74.0232  211.3035  0135375 


.00000769  00000-0  24872-2  0  04444 
171.0166  190.4830  12.37045978615841 


.00000005  00000-0  99999-4  0  07414 
191.4952  168.2984  12.25140528337691 


CLASS:  2-1-4 

1  103930  74089  EJ  90062.62858901  -.00000005  00000-0  99999-4  0  06127 

2  10393  101.5836  125.5560  0159384  186.4464  173.4562  12.23222517688950 


CLASS:  2-1-6 

1  03307U  68  55  A  90061.30107875  -.00000004  00000-0  99999-4  0  03273 

2  03307  120.8360  49.7361  0016628  304.3898  55.5064  6.42179368507994 

CLASS:  2-2-1 

1  14670U  84  8  A  90089.71771437  .00003989  00000-0  22435-2  0  04016 

2  14670  36.1314  231.2740  3062374  228.4523  101.0035  8.83565400199084 

CLASS:  2-2-2 

1  19990U  64  6  T  90061.50986469  .00036262  00000-0  64575-2  0  03393 

2  19990  60.7998  107.0493  2240370  111.3711  273. 9 •'90  10.63979039  33063 

CLASS:  2-2-3 

1  19859U  63  14  EQ  90061.33277128  .00001585  00000-0  53835-1  0  01474 

2  19859  85.7520  193.3073  2180139  351.0306  5.6905  8.77440823  12684 

CLASS:  2-2-4 

1  0382SU  69  25  C  90064.05404288  .00001522  00000-0  75393-3  0  04030 

2  03825  104.7482  291,9495  2730748  143. 19'?-.  l.?0.1864  9.47917380721352 

CLASS:  2-2-6 

1  04841U  68  55  D  90074.10938230  .00001:193  00000-0  15271-2  0  02071 

2  04841  120.7474  345.7001  2717040  280.3^14  58,7999  9.26652751199759 

CLASS:  3-1-1 

1  019960  65096  D  90062.57233723  .00029976  00000-0  57772-2  0  01333 

2  01996  34.2488  168.4994  0537978  239.8495  114.7699  13.98433357202306 

CLASS:  3-1-2 

1  14443U  77121  BF  90086.44518818  ,00010006  00000-0  49856-2  0  09526 

2  14443  65.6376  243.2938  0224462  174,3899  186.0178  14.05013696441828 

CLASS:  3-1-3 

1  19643U  78121  C  90062.46477114  .00000628  00000-0  32995-3  0  01914 

2  19643  81.2328  216.8294  0067007  164.6783  195.6607  14.11971226  70214 


CLASS:  3“1“4 

1  17429U  86  19  FQ  90086.10115666  .00012418  00000-0  68353-2  0  04994 

2  17429  98.9992  173.5282  0109612  173.9167  186.3401  14.08678078172316 

CLASS:  3-1-6 

1  07736U  75  27  B  90061.92256864  .00000817  00000-0  44554-3  0  05202 

2  07735  114.9854  32.3886  0049798  313.3500  46.3487  14.20662747771802 

CLASS:  3-1-6 

1  02327U  66  63  B  90063.84215319  .00003471  00000-0  30012-2  0  07997 

2  02327  144.2199  82.3338  0017522  175.4422  184.6370  13.82228492187809 

CLASS:  4-1-1 

1  14002U  83  33  A  90086.44246605  .00466655  83983-4  16472-2  0  07221 

2  14002  46.5599  241.9884  0070169  291.6506  67.7970  15.84324476380871 

CLASS:  4-1-2 

1  13972U  83  27  A  90088.25195735  .00192985  00000-0  92495-3  0  04456 

2  13972  65.8266  153.4866  0009504  229.4544  130.5459  15.81905388390904 

CLASS:  4-1-3 

1  16438U  85121  E  90086.00040288  .00580501  00000-0  39896-2  0  03141 

2  16438  70.9442  188.7777  0064322  113.8059  246.9918  15.70202629231132 

CLASS:  4-1-4 

1  16036U  79  17  P  90092.07768260  .00236728  00000-0  22353-2  0  03377 

2  16036  98.1206  141.8874  0023457  193.5278  163.4477  15.65936551614361 

CLASS:  4-1-2  (2nd  Choice) 

1  1SS84U  85  18  A  90086.75596273  .00071118  00000-0  95413-3  0  02527 

2  15584  65.8387  217.5705  0023397  269.2089  90.6387  15.57222498283684 

CLASS:  4-1-3  (2nd  Choice) 

1  04497U  70  64  A  90062.21980962  .00093972  00000-0  41670-3  0  08423 

2  04497  74.0185  133.5216  0004296  347.6032  12.4936  15.84015404  91061 

CLASS:  4-1-1  (2nd  Choice) 

1  20335U  89  93  A  90061.64390907  .00009759  00000-0  12823-3  0  01290 

2  20335  51.6166  147.1234  0017535  227.5475  132.5147  15.59068899  15116 


Appendix  G.  MATHEMATICA  CODE  FOR  PLOTS 


The  code  below  was  used  to  plot  the  VMAGT  points  for  each  of  the  LUPI/OPD 
iterations  using  all  10  random  observation  files  for  a  specific  satellite. 


«St*tistics‘D«sCTiptlT«St»tistic«‘ ;  «St«ti«tlc*'DatalUaipaliitioB' ; 


;  «Stati*tic**C«iif  idancalBtcrvala' ; 

(*  Thla  function  croatoa  a  (rapk  of  a  raaidnala  fila  (tBatrlx).  •) 
(*  It  coapntaa  a  Boalag  aaaraga  star  fonr  dapa.  Staadj-atata  ia  a) 
(•  aannally  daclarad  at  '*uxday“.  and  ''acala''  ia  tha  duration  of  a) 
(•  data  apan.  It  alao  outputa  tka  ^apk  info  to  fila  "Cl. FILE'*.  •} 
(•  Exaapla  uaaga:  a) 
(a  aplot[i4443,f88B,t.28,60]  a) 


aplot  [aatno.Intagar .matrix.  .LUPI.Intafar .aaxday.Intagar  .acala.Intagar]  :  ■ 
Block!  {nmna.  mt.  opd,  lata,  aoaa,  aaagt.  aap.  ata.  atd.  p99,  aaaCI. 
aarCI,  p99CI,  atari,  aaarl,  varrt,  *arr3,  p99rt.  p99r3,  top), 
nmna  ■  LanftkCmatrix] ; 

mt  a  SortCColuaaJain(aBatrix([l]],  a»atrix[(}]] ,  matrix((3]], 

matrixCtt]]  ,  matrix((S]i,  matrlxt(6l},  amatrixlt?}}  , 
aMtrixCtBJj,  matrixtC9]i,  matrix[(10]]]] ; 
opd  a  I.an(tktmt]/(nruna*tcala) : 

lata  a  TablaCSnaCrnttCi}]  .  (i ,( j-l)aapdai ,jaopd)]/(opd) , 

{  J , i  ,LaBCtkCmt]/(opd)>]  : 

BOTa  a  LiatPlot(lloaiB(lTaraga(laaa,nmBaa4-tl, 

Plotloinad  ->  Trua,  OiaplayPunction  *>  Idantity}; 
aBa(t  a  LiatPlotCmt.  Prole|->PaintSixaf  .OOS]  , 

PlotJoinad  *>  Falaa,  OiaplayFonction  ->  Idantity}; 
arp  a  TablaCtriaatuff  CmatrixtCij]  ,Baxday]  ,(i,t  ,10)} ; 

aaa  a  RaanCTrantpoaaCatp] (Cl}]  ]; 

atd  a  S<)rtC  RaanCTranapoaoCatp]  CCl}}  ]  }; 

p99  a  RaanCTranxMaaCavp]  ((3]]  }; 

aaaCI  a  RaaBCI(Tranayotalaap}([t}}  }; 

tarCI  a  RaanClCTranapoaaCa«p]C(3]}  }; 

p99CI  a  RaaaCICTraBapaBa(a*p}C(3)}  1; 

atari  a  taBBd(tOOaataCICCt}]}/100.0; 

atari  •  tottBd(100aataCl((}]}]/100.0; 

tarrl  •  konBdCiOOatarCIuini/tOO.O; 

tarri  •  kattBdllOOatarCIUinj/IOO.O; 

p99rl  a  to«nd(iOO<p99Ct[Cl}}]/tOO.O; 

p99r3  a  t9aBdCtQOap»9ClCC3]}}/iOO.O; 

top  a  Flaar[5/3*p99]  *1; 

0pas4ppas4(“Cl.FlLS"} ,  Pntlppan4((aataa.LUPI.apd,atari .atari, tarrl . 

tarrl, p99rl  ,p«rI).”CI.riLE“} ;  Claaa£“Cl.ritS“}  ; 

SkotCsata,  tBa(t,  Praleg  *>  (OraylataKS),  Tbt<ka«aat.003$) , 
Lisa({{Baiday.O} ,  (Baiday.lOOO))] ,  OraytatalCO] , 

Lina(((BaLiday,p99)  ,  (acala. p99>)]  ,  Tklcknaoai.OOS},  Pei&t$iaa(.OOS] . 
TanC"aiaady-atata  daclarad", (wM^y-acala/49.  TOtcp).  (*i.e).  (0.1)}. 

Taxi ("RLE  99t  CL".< (Baxday*a<ala)/I,  pB9*cop/30).(0,li]}. 

Epilof  ->  (  QrayLatalCO} , 

Ttxt(“9SSCI  S9i  Ct  “TaxtFarBCpWii;.  (  Bacala.eapaS*  j/«o).(s.o)) . 

Tail ("  -"TaxlFarB(p98rl) , ( . 9aeala,top*$*. S/60) . (-1 .0) ) , 

Tatt(~9SXCI  Btan  “  TattFantCatarl} .  (.»a«ala.tap«M.t/C0).(l,0)), 

Tatt("  •"TattForB(atarJ).(.9a«alt.lapaS0.5/e!J)  .(-1 .0)). 

Tail{"9SX  Cl  tar.  "  TaxtFarB(tarrl)  ,  (  .Sacala.tepaM  t/«)  .(1 .0)}. 

Tatlf"  -"Ta»lFarB{tarr2}  .(  .*a«ala,top»W.t/eo),(-l  .0)1  >. 

Fraita->Tr«a,  Itaa  ->  Falaa.  Plattaa(a  ->  ((-O.acaia)  .f-O.iep)) . 
eri4Liaaa->  (Tat>la(UtPtai.<i.9.Flaar(a<ala/L«’{}  <  >}).  itiMatic). 
FraaaLabal  ->  (“T‘Ba  tinea  initial  apacb  in  daya".  "I'anitian  arrar  in  »»"). 
PUtLabal  ->  ap4"<!BS/&kT  -  TtCE  rotiTtO*  Skm  UP  4  MT  BOtSta  «T£]U<Ur. 
Oiaplayrnacti an  ->  trioplaylnactiaa} 

) 

<*  CoBpttaa  ataraBa  Cl  and  RLE  tariaeca  a'lar  raaotixB  ndayt.  •) 

tru»ilarf (t*t..a4ayt.}  Blacb({trla.  ata,  tar, 

triB  «  kcalaanSalact(ml,  Takla(t«t({t.|)}>ta4aya.  (i.LanBtklmt})}  ). 

ata  a  Raaa(Ca)tBn(triB,2]] ; 

tar  a  Varia»caRL£(Calnan(trla.}}) ; 

p99  a  ata  *  I.3ieiSaS^rt(tar}; 

(ata.  tar, 

1 

datad llanaBa.]  ;*  BaadLiatCfUaBaaa.  Tabla((na;bar.  (3))). 


Appendix  H.  VMAGT  GRAPHS 


H.l  CLASS:  1-1-1  (NORAD  Catalog  Number  15141) 

H.1.1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H.l.  95%  Confidence  Interval  Analysis  on  Class:  1-1-1. 


Catalog 

Number  LUPI  OPD 


(lays  I  obs/day 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


15141 


H  15141 


Mean 


Min  Max 


km  km 


Variance 


Min  Max 


km’  km’ 


99%  CL 


Min  Max 


21.64 


21.99 


21.00 


22.03 


29.39 


27.75 


24.66 


23.47 


38.38 


35.31 


34.69 


34.46 


44.77 


39.58 


37.40 


38.27 


31.46 


28.80 


28.41 


25.82 


47.00 


33.51 


29.58 


28.31 


54.89 


48.29 


41.05 


38.45 


65.60 


52.65 


47.70 


45.63 


487.95 


530.10 


455.47 


467.74 


86.08 


339.87 


232.68 


239. 


474.79 


422.10 


308.38 


299.10 


358.74 


274.12 


263.32 


245.57 


1404.68 


1 155.96 


978.87 


864.38 


2031.48 


775.17 


499.46 


1067.75 


1328.83 


663.55 


525.48 


994.31 


482.20 


386.98 


324.44 


75.21 


74.64 


90.71 


79.47 


79.02 


75.84 


80.48 


75.74 


129.23 


130.7G 


100.16 


91.29 


135.61 


101.96 


89.39 


86.28 


Tabic  H.2.  ANOVA  .Analysis  on  Class:  1  1  1. 
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Figure  H.l.  Class:  1-1-1  (Catalog Number  15141),  LUPl  2,  OPD  2  ajid  4. 


otrcr  in  kn  Position  error  In 


6  OBS/DAY  -  TRUE  POSITION  ERROS  AKD  4  DAY  MOVING  AVERAGE 
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Figure  H.2.  Clais:  l-l-l  (Catalog  Nuinb4!r  15141),  LUPI  2,  OPD  6  and  8. 
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4  OBS/Oht  -  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 
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Figure  H.3.  Class:  l-l-l  (Catalog  Number  15141),  LUPI  4,  OPD  2  and  4. 
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Figure  H.4.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  4,  OPD  6  and  8. 
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A  Oas/DAY  -  TRUE  POSITION  ERROR  AND  A  DAY  MOVING  AVERAGE 
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Figure  H.5.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  6,  OPD  2  and  4. 
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6  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAT  MOVING  AVERAGE 
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8  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 


Figure  H.6.  Class;  1--1-1  (Catalog  Number  15141),  LUPl  6,  OPD  6  and  8 


2  OBS/DAY  ~  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 
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Figure  H.7.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  8,  OPD  2  and  4. 
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Figure  H.8.  Class:  1-1-1  (Catalog  Number  15141),  LUPI  8,  OPD  6  and  8. 
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H.1.2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in¬ 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.2.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 
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Variance 
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Figure  H.9.  Last-Pass  —  Class:  1-1-1  (Catalog  Number  15141),  LUPI  8.  OPD  8. 
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H.2  CLASS:  1-1-2  (NORAD  Catalog  Number  15259) 


H.2.1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H.4.  95%  Confidence  Interval  Analysis  on  Class;  1-1-2. 


Catalog 

Number  LUPI  OPD 


days  obs/day 


2 


2 


2 


2 


15259 


15259 


15259 


15259 


15259 


15259 


15259 


15259 


15259 


15259 


15259 


15259 


15259 


15259 


Mean 

Variance 
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km 

km 
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km 

km 
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4.98 
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1.61 
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2.00 

1.33 

3.57 

4.19 

6.29 

ion 

2.94 

7.42 

5.31 

8.86 

I11G51 

3.06 

7.77 

5.40 

9.34 

1.43 

2.09 

0.85 

3.52 

3.60 

6.28 

1.03 

1.46 

0.42 

1.34 

2.59 

4.03 

2.18 

3.54 

1.90 

8.56 

5.57 

9.96 

1.28 

2.14 

0.36 

3.75 

3.17 

6.26 

1.16 

1.67 

0.35 

1.83 

2.69 

4.63 

0.91 

1.24 

0.24 

0.81 

2.15 

3.21 

2.22 

3.89 

2.26 

10.97 

5.64 

11.28 

1.38 

1.86 

1.05 

2.20 

3.82 

5.18 

1.36 

1.89 

0.97 

2.07 

3.75 

5.11 

1.16 

1.80 

0.64 

2.15 

3.12 

5.06 

Table  n.5.  .“^NOVA  Analy.sison  Class;  11-2. 
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Figure  H.IO.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  2,  OPD  2  and  4. 
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Figure  H.ll.  Class:  1-1-2  (Catalog  Number  152S9),  LUPI  2,  OPD  6  and  8. 
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Figure  H.12.  Class:  1-1-2  (Catalog  Number  1S259),  LUPI  4,  OPD  2  and  4. 
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Kigtjre  li.l3.  C1a«i:  J  1-2  (CaLaicig  NomWr  15259),  LUPl  4,  OPD  6  »(]  8. 


ii-i5 


Position  error  in  km  Position  error  In  km 


Tlno  since  Initial  epoch  In  deyj 


4  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 
T — ! — ’ — t — I — 1 — ' — KL'TI'r'rT 


.* 

• . 

y 

• 

SBCIBBI 
95%  Cl  « 
95%  Cl  \ 

CL  i.n 
ean  1.2E 
ar.  0.31 

-  6.2« 

-  2.14 

-  3.75  , 

■ 

« 

w, 

IV 

u 

« 

B 

B 

■ 

■ 

■ 

B 

\ 

* 

• 

•  9 

• 

:  - 

B 

ilH 

H 

B 

>1 

TJ 

<9 

« 

fl 

1 

BK3B. 

_ ^ 

in 

• 

•c 

w 

H 

Hi 

n 

HI 

B 

m 

B 

B 

Hi 

B 

B 

■1 

ns 

»8{ 

m 

r* ' 

r?  •  *• 

- j-e- 

H 

m 

m 

as 

ri 

IS 

'^4 

»i  r.^-1 

■ 

{•J)  ■ 

V 

• 

m 

ii 

M 

m 

1^* 

-I — L— _ _  1  rc  ,  I r  . i ■  ■  •  ■  ■  _ ■  r  .  .  i 

10  20  30  40  so  £0 

Time  since  Initial  epoch  In  daya 


Figure  H.14.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  6,  OPD  2  and  4. 
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Figure  H.15.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  6,  OPD  6  and  8, 
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Figure  11.16.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  8,  OPD  2  and  4. 
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Figure  11.17.  Class:  1-1-2  (Catalog  Number  15259),  LUPI  8,  OPD  6  and  8. 
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H.2.2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in¬ 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.4.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

wmm 

days 

obs/day 

km 

km 

km* 

km 

km 

15259 

8 

8 

0.57 

0.75 

0.10 

0.17 

1.30 

1.70 

Time  since  Initial  epoch  1.'.  days 


Figure  H.18.  Last-Pass  —  Class:  1-1-2  (Catalog  Number  15259),  LUPI  8,  OPD  8. 
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H.3  CLASS;  1-3-2  (NORAD  Catalog  Number  14199) 

H.3. 1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H,7.  95%  Confidence  Interval  Analysis  on  Class:  1-3-2. 


Catalog 

Mean 

Variance 

99%  CL 

Number 

LUPI 

OPD 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

km^ 

km^ 

km 

km 

14199 

2 

2 

25.24 

32.07 

380.73 

856.34 

72.78 

97.34 

14199 

2 

4 

22.33 

28.87 

263.28 

671.48 

58.85 

88.53 

14199 

2 

6 

16.01 

20.54 

78.17 

Bza 

63.22 

14199 

2 

8 

11.89 

14.71 

70.56 

32.08 

39.29 

14199 

4 

2 

35.98 

49.00 

665.86 

1630.12 

95.68 

141.01 

14199 

4 

4 

19.94 

27.64 

56.91 

845.67 

49.68 

87.73 

14199 

4 

6 

13.08 

17.92 

109.61 

203.29 

37.69 

50.42 

14199 

4 

8 

10.47 

13.77 

60.06 

107.34 

28.63 

37.50 

14199 

6 

2 

42.48 

63.08 

934.39 

3612.94 

115.09 

197.46 

14199 

6 

4 

17.14 

24.32 

77.81 

497.16 

43.40 

ksii 

14199 

6 

6 

13.00 

16.73 

94.78 

182.74 

36.27 

14199 

6 

8 

11.85 

14.73 

59.88 

122.89 

30.26 

39.74 

14199 

8 

2 

32.15 

48.88 

459.80 

2118.17 

85.23 

150.42 

14199 

8 

4 

16.43 

26.71 

143.11 

450.05 

45.54 

73.89 

14199 

8 

6 

15.09 

21.75 

132.45 

330.04 

42.38 

62.67 

14199 

8 

8 

14.33 

18.56 

90.98 

212.99 

36.74 

51.51 

Table  H.8.  ANOVA  Analysis  on  Class:  1-3-2. 


Source  of  Degrees  of  Sum  of  Mean  Tabic 

Variation  Freedom  Squ.ire  Square  F  F 


Replications 


Main  Effects: 
LUPI 
OPD 


Interaction 


Error 


Total 


0.2482  1.88 


26143.48  2904.83  0.4991  1.88 


0.1490  2.60 

9.23  2.60 
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Figure  H.19.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  2,  OPD  2  and  4. 
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Figure  H.20.  CI^:  1-3-2  (Catalog  Number  H199),  LUPl  2,  OPD  6  and  8. 
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Figure  H.21.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  4,  OPD  2  and  4 
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Figure  11.22.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  4,  OPD  6  and  8. 


11-25 


fatlclor*  0fror  Ic*  foiitlon  •rror  In 


2S0 


200 


2 


ISO 


100 


so 


0 


2  OSS/OAY  -  TRUE  FOStTION  ERROR  AND  4  DAT  HOVINC  AVERACE 
T - -  '  !  •  '  I  '  ■  '  I  ’  I  ■  IJJJ  -■  X 


1 

■ 

■ 

■ 

■ 

■ 

i 

■ 

- 

-  «3.0i‘ 

-  3«12,* 

• 

• 

•* 

• 

.  "o 

• 

*i 

m 

m 

k 

■O 

• 

• 

KLE  1 

4 

1 

■ 

1 

*  i 

• 

« 

■ 

■ 

1 

i 

B 

B 

1 

i 

■ 

i 

B 

i 

1 

i 

m 

■ 

n 

M 

M 

■ 

TtM  line*  lAKUt  •poch  tn  d»T* 


Figure  H.23.  Class:  1-3-2  (Catalog  Number  14199),  LUPl  6,  OPD  2  and  4. 
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Kigtirc  11.24.  Class:  1-3-2  (CaUloig  Numb€f  U199),  LUPI  6,  OPD  6  ami  8. 
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Figure  H.2r>.  Class;  I“3'2  (Catalog  Number  14199),  LUPI  8,  OPD  2  and  4. 
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H.S.2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.6.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

km" 

km" 

km 

km 

14199 

8 

8 

6.34 

8.15 

7.52 

19.16 

12.92 

17.98 
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I  Figure  H.27.  Last-Pass  —  Class:  1-3-2  (Catalog  Number  14199),  LUPI  8,  OPD  8. 
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H.4  CLASS:  2-1-3  (NORAD  Catalog  Number  10293) 

H.4-1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 

Table  H.IO.  95%  Confidence  Interval  Analysis  on  Class:  2-1-3. 


Catalog 


LUPI 

OPD 

days 

obs/day 

Mean 


Min  Max 


km  km 


Variance 


Min  Max 


km*  km* 


10293 


10293 


10293 


10293 


10293 


10293 


10293 


10293 


99% 


Min 


km 


3.95 


3.17 
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5.48 


4.85 


7.31 


5.92 


Table  H.ll.  ANOVA  Analysis  on  Class:  ''-1-3. 


Source  oi 
Variation 


Replications 

9 

Main  Effects: 

LUPI 

3 

OPD 
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Interaction 

9 

Error 

135 

Total 

159 
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72.99 

48.61 


36.53 


291.07 


667.27 


Mean 

Square 


1.89  0.8971 


57.66 

49.54 


4.06 


2.16 
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Figure  H.28.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  2,  OPD  2  and  4. 


H-32 


Pocltlon  error  In  ka  Poeltlon  error  in 


7 


«  OBS/DM  "TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

I 

I 

1 

%  ( 
nei 

ar. 

I 

1 

1.1 

L.4 

L.3 

I 

I 

1 

1 

1 

1 

1 

1 

i 

U 

U 

« 

TJ 

1 

1 

1 

I 

1 

E 

1 

1 

1 

1 

1 

E 

E 

E 

1 

E 

1 

I 

1 

1 

1 

— 

1 

K 

4 

ei 

h 

1 

1 

1 

1 

1 

1 

1 

1 

E 

E 

E 

E 

1 

E 

1 

1 

1 

1 

1 

1 

B 

m 

B 

B 

■ 

B 

E 

E 

m 

a 

a 

B 

B 

fli 

m 

B 

B 

1 

1 

1 

1 

1 

i 

f 

1 

1 

1 

1 

E 

1 

Et 

m 

B 

B 

1 

1 

1 

1 

A 

y 

•{ 

1 

1 

1 

• 

»• 

•  • 
«•  , 

1 

1 

I 

E 

E 

1 

1 

1 

E 

E 

E 

1 

g 

1 

E 

E 

1 

£ 

i 

I 

1 

I 

I 

t 

1 

1 

S 

tt 

1 

1 

1 

n 

i 

I 

I 

31 

I 

i 

S&ii 

1 

i 

1 

i 

II 

1 

f 

I 

I 

1 

A 

i 

1 

II 

i 

II 

10  20  30  40  so  60 

Time  since  initial  epoch  in  days 


8  OBS/DAV  -  TRUE  POSITION  ERROR  AND  4  DAT  MOVING  AVERAGE 


20  30  40 

Tine  since  Initial  epoch  in  days 


Figure  H.29.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  2,  OPD  6  and  8. 
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Figure  H.30.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  4,  OPD  2  and  4 
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Figure  H.31.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  4,  OPD  6  and  8. 
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Figure  H.32.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  6,  OPD  2  and  4. 
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Figure  H.33.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  6,  OPD  6  and  8. 
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Figure  H.34.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  8,  OPD  2  and  4. 
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Figure  H.35.  Class:  2-1-3  (Catalog  Number  10293),  LUPI  8,  OPD  6  and  8. 
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H,4<2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.8.  Selected  Last- Pass  95%  Confidence  Interval  Statistics. 
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Kigui,-  H.36.  I^l-Pasf  -  Oass:  2-1-3  (Catalog  Number  10293),  LUPI  8,  OPD  8. 
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H.5  CLASS:  2-1-4  (NORAD  Catalog  Number  10393) 


H,5. 1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H.13.  95%  Confidence  Interval  Analysis  on  Class:  2-1--4. 


Catalog 

Number  LUPI  OPD 


dftys  obs/(l»y 


2 


2 


2 


2 


Mean 


Min  Max 


km  kni 


Variance 


Min  Max 


10393 


10393 


10393 


10393 


10393 


10393 


10393 


’0393 


10393 


10393 


10393 


10393 


10393 


10393 


10393 


10393 


1.26 

1.52 

0.68 

1.74 

1.03 

1.31 
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0.83 

1.89 

1.69 

1.98 
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1.58 

99% 


Min 


km 


3.19 


2.60 


2.45 


Table  H.H.  ANOY.A  Analysis  on  Class:  2^1  4. 
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Figure  H.37.  Class:  2-1-4  (Catalog  Number  10393),  LUPl  2,  OPD  2  and  4. 
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Figure  H.38.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  2,  OPD  6  and  8. 
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Figure  H.39.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  4,  OPD  2  and  4. 
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Figure  H.40.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  4,  OPD  6  and  8. 
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Figure  H.41.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  6,  OPD  2  and  4. 
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Figure  H.42.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  6,  OPD  6  and  8. 
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Figure  H.43.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  8,  OPD  2  and  4. 
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Figure  H.44.  Class:  2-1-4  (Catalog  Number  10393),  LUPI  8,  OPD  6  and  8. 
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H.5.2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in¬ 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.IO.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

Min 

Max 

Min 

Max 

Min 
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1231 
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Figure  H.45.  Last-Pass  —  Class;  2-1-4  (Catalog  Number  10393),  LUPI  8,  OPD  8. 
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H.6  CLASS:  2-2-S  (NORAD  Catalog  Number  19859) 


H.  8. 1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 

Table  H.16.  95%  Confidence  Interval  Analysis  on  Class:  2-2-3. 


Catalog 

Number  LUPI  OPD 


days  obs/day 


Mean 


Min  Max 


km  km 
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Table  H.17.  ANOVA  Analysis  on  Class:  2-2-3. 


Source  of 
Variation 


Degrees  of 
Freedom 


Mean 

Square 


Table 

F 


Replications 


Main  Effects: 
LUPI 
OPD 


Interaction 


Error 


1076.72 
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Figure  H.4G.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  2,  OPD  2  and  4 
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Figure  H.47.  Class:  2-2-3  (Catalog  Number  19S59),  LUPI  2,  OPD  6  and  8. 
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Figure  H.48.  Class:  2-2-3  (Catalog  Number  19SS9),  LUPI  4,  OPD  2  aad  4 
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Figure  H.49.  CLusc  2-2-3  (C^'^Ulog  Number  19859),  LUPI  4,  OPD  6  aad  8 


Figure  H.51.  Class:  ‘<^-2-3  (Catalog  Number  19859),  LUPI  6,  OPD  6  and  8, 
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Figure  H.52.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  8,  OPD  2  and  4. 
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Figure  H.53.  Class:  2-2-3  (Catalog  Number  19859),  LUPI  8,  OPD  6  and  8. 
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H.6.2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in¬ 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.12.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 
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Figure  H.54.  Last-Pass  —  Class:  2-2-3  {Catalog  Number  19859),  LUPI  8,  OPD  8. 


H.7  CLASS:  3-1-1  (NORAD  Catalog  Number  01996) 


H.  7. 1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 

Table  H.19.  95%  Confidence  Interval  Analysis  on  Class:  3-1-1. 


Catalog 

Number  LUPI  OPD 


days  obs/day 


2 


2 


2 


2 


4 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


01996 


Mean 

Variance 

99? 

i  CL 

Min 

Max 

Min 

Max 

Min 

Max 

km 

km 

km* 

km 

km 

3.59 

4.67 

6.80 

18.02 

9.94 

14.17 

2.88 

3.27 

4.28 

8.60 

7.74 

9.97 

2.61 

2.98 

3.45 

5.96 

6.95 

8.60 

2.75 

3.26 

3.96 

6.84 

7.36 

9.30 

9.40 

12.89 

49.48 

122.80 

26.11 

37.87 

9.45 

11.22 

43.61 

73.54 

25.10 

30.77 

9.04 

10.38 

36.56 

62.17 

23.32 

28.40 

8.89 

9.83 

39.57 

50.33 

23.80 

26.02 

22.49 

25.36 

243.10 

342.69 

58.99 

68.05 

19.44 

21.38 

178.25 

203.37 

50.67 

54.37 

18.16 

19.63 

145.37 

177.94 

46.40 

50.43 

■WMltKlil 

138.18 

168.70 

gHIIrl 

49.61 

IlfcHtajiglilHil 

466.65 

918.71 

mm 

112.91 

33.79 

38.83 

502.01 

637.48 

86.04 

97.31 

33.27 

36.84 

484.39 

606.50 

84.49 

93.99 

32.70 

35.04 

452.60 

556.18 

82.31 

89.70 

Table  H.20.  ANOVA  Analysis  on  Class:  3-1-1. 


Source  of 
Variation 


Degrees  of 
Freedom 


Mean 

Square 


Table 

F 


Replications 

9 

1224.52 

136.06 

4.20 

1.88 

Main  Effects: 
LUPI 

3 

151974.00 

50658.00 

1563.90 

2.6 

1 

OPD 

3 

2373.27 

791.09 

24.42 

2.6 

1 

Interaction 

9 

570.47 

63.39 

1.96 

1.88 

Error 

135 

4372.93 

32.39 

□ 

Total 


160515.21 
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Figure  H.55.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  2,  OPD  2  and  4. 
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Figure  H.56.  Class;  3-1-1  (Catalog  Number  01996),  LUPI  2,  OPD  6  and  8. 
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Figure  H.57.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  4,  OPD  2  and  4. 
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Figure  H.SS.  Class:  3-1-1  (Catalog  Number  01996),  LUPl  4,  OPD  6  and  8. 
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Figure  H.59.  Class:  3-1-1  (Catalog  Number  01996),  LUPI  6,  OPD  2  aad  4. 


H-66 


fatiHoft  axrar  In  ks  Poaltlon  arroc  In 


TiM  ilnca  Initial  apoch  In  daya 


t  OBS/DAY  -  TRUE  EOSITION  EMOR  AND  4  DAY  M0VIK6  AVERAGE 
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Figure  11.60.  Class:  3-1-1  (Catalc^  Number  01906),  LUPl  6,  OPD  6  and  3. 
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Figure  H.61.  Claris:  3-l“i  (Catalog  Number  01996),  LUPI  8,  OPD  2  aa^  4 
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Figar«*  H.62-  Class;  3-1-1  (CiUlog  Number  01996).  LUPI  8,  OPD  6  and  8. 


H.^.2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.14.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Number 

LUPT 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

kni 

km® 

km® 

km 

km 

01996 

8 

8 

2.35 

2.58 

1.38 

1.88 

5.09 

5.75 

Figure  H.63.  Last- Pass  —  Class:  3-1-1  (Catalog  Number  01996),  LUPI  8,  OPD  8. 
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H.8  CLASS:  3-1-2  (NORAD  Catalog  Number  I444S) 

H.  8. 1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H.22.  95%  Confidence  Interval  Analysis  on  Class:  3-1-2. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

km* 

km* 

km 

km 

14443 

2 

2 

2.42 

3.21 

2.53 

6.61 

6.06 

9.09 

14443 

2 

4 

1.98" 

2.20 

1.86 

2.36 

5.24 

5.68 

14443 

2 

6 

2.07 

1.28 

■Bl 

4.46 

5.54 

14443 

2 

8 

1.92 

1.22 

4.20 

5.17 

14443 

4 

2 

3.24 

4.30 

9.88 

8.34 

11.60 

14443 

4 

4 

2.57 

3.71 

2.83 

7.92 

6.63 

10.03 

14443 

4 

6 

2.23 

3.29 

1.80 

6.34 

5.52 

8.90 

14443 

4 

8 

2.16 

2.80 

2.09 

4.29 

5.52 

7.58 

14443 

6 

2 

4.09 

5.99 

8.08 

31.08 

10.81 

18.46 

14443 

6 

4 

3.59 

4.64 

5.24 

15.14 

9.15 

13.36 

MESm 

6 

6 

3.36 

4.10 

5.53 

10.63 

8.81 

11.58 

mm 

6 

8 

ina 

3.85 

IQQB 

8.98 

11.51 

14443 

8 

2 

7.36 

KiK:gl 

14.31 

Bsai 

14443 

8 

4 

5.21 

6.71 

IHMJ 

21.15 

13.11 

ogii 

8 

6 

4.72 

5.80 

8.87 

15.54 

11.66 

mnm\ 

8 

8 

4.72 

5.57 

9.18 

14.01 

11.80 

14.20 

Table  H.23.  ANOVA  Analysis  on  Class:  3-1-2. 


Source  of 
Variation 

Degrees  of 
Freedom 

Sum  of 
Square 

Mean 

Square 

F 

Table 

F 

Replications 

9 

149.51 

16.61 

3.39 

1.88 

Main  Effects: 
LUPI 

3 

1869.48 

m 

OPD 

3 

340.80 

BBSII 

Interaction 

9 

20.64 

1.8S 

Error 

135 

662.03 

4.90 

Total 

159 

3042.47 
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Figure  H.64.  Class:  3-1-2  (Catalog  Number  14443),  LUPl  2,  OPD  2  aud  4. 


Figure  H.65.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  2,  OPD  6  and  8. 
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Figure  H.66.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  4,  OPD  2  and  4. 
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Figure  H.67.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  4,  OPD  6  and  8. 


Position  error  in 


4  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 
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Figure  H.68.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  6,  OPD  2  and  4 
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Figure  H.69.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  6,  OPD  6  and  8, 
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Figure  H.70.  Class:  3-1-2  (Catalog  Number  14443),  LUPI  8,  OPD  2  and  4. 
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H.S.S  Differential  Corrector  Performance.  The  table  below  provides  statistical  in¬ 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.16.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

■■■ 

days 

obs/day 

km 

km 

km 

km 

1  14443 

8 

8 

1.00 

1.03 

0.25 

0.29 

2.17 

2.27 

Tta*  •(■>««  wpoeh  In  day* 


Figure  H.72.  Last-Pass  — ■  Class:  3-1-2  (Catalog  Number  14443),  LUPI  8,  OPD  8. 
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H.9  CLASS:  3-1-3  (NORAD  Catalog  Number  19643) 


H, 9. 1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H.25.  95%  Confidence  Interval  Analysis  on  Clciss:  3-1-3. 


Catalog 

Number  LUPI  OPD 


days  obs/day 


2 


2 


2 


2 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


19643 


Mean 


Min  Max 


km  km 


Variance 


5.00  I  6.27 


5.05  5.94 


Min 

Max 

Min 

Max 

km* 

km* 

km 

km 

2.70 

6.83 

6.06 

8.61 

1.24 

2.33 

4.01 

5.43 

1.36 

2.69 

4.21 

5.56 

1.35 

2.06 

4.08 

4.95 

4.51 

8.87 

7.82 

10.23 

3.52 

6.69 

6.72 

8.74 

3.52 

5.34 

6.47 

7.81 

2.51 

4.27 

5.52 

6.98 

8.62 

21.68 

10.79 

15.27 

7.64 

14.64 

10.03 

12.94 

7.51 

11.99 

9.69 

11.70 

6.93 

10.65 

9.33 

11.15 

26.50 

58.81 

17.99 

26.01 

18.81 

33.05 

15.25 

20.15 

17.53 

29.77 

14.90 

18.69 

17.79 

29.31 

14.98 

18.34 

Table  11.26.  ANOVA  Analysis  on  Class;  3-1--3. 


Source  of 
Varialian 


Degrees  of  S 
Freedom  S 


Mean 

Square 


Replications 

9 

167.42 

Main  KfTecls: 

LUPI 

3 

3860.32 

OPI) 

3 

279.89 

iKOS&SSSOii 

9 

48.11 

Krror 

135 

524.78 

Total 

159 

4880.52 

286.77 

93.29 


5.35 


3.89 


Table 

F 


1.88 


.02 

2.6 

.00 

2.6 

ravtilOiA  «froi  In  tun  foslclon  error  In 


2  OBS/OAY  -  TKUe  FOSItlON  ERROR  AMD  4  DAY  MOVINO  AVERAGE 


I 


7 


t 


i 


* 


) 


2 


4  Oas/OAT  -  TRUE  FOSITIOM  ERROR  AMO  4  DAT  NOVINa  AVERAGE 


Tine  *Snce  eoerk  (n  lievt 


Figure  11.73.  Class:  3- 1 “3  (Catalog  Number  19643).  LUPI  2,  OPD  2  and  4 
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Figure  H.74.  Class:  3-1-3  (Catalog  Number  19W3),  LUPl  2,  OPD  6  and  8. 
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Position  error  in  to  Position  error  in 


4  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAY  MCWING  AVERAGE 


Figure  H.75.  Clais:  3-1-3  (Catalog  Number  19643),  LUPI  4,  OPD  2  and  4 
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Figure  H.76.  Class:  3-1-3  (Catalog  Number  19643),  LUPI  4,  OPD  6  and  8 
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Figure  H.78.  Class:  3-1-3  (Catalog  Number  19643),  LUPI  6,  OPD  6  and  8. 
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Position  error  In  1cm  Position  err 


2  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 


Time  since  initial  epoch  In  days 


Figure  H.79.  Class:  3-1-3  (Catalog  Number  19643),  LUPI  8,  OPD  2  and  4. 
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6  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 
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Figure  11.80.  Class;  3-1-3  (Catalog  Number  19643),  LUPI  8,  OPD  6  and  8. 
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Position  error  in 


H.9.2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in¬ 
formation  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.18.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

km 

km 

19643 

8 

8 

0.73 

0.76 

0.13 

0.15 

1.58 

1.66 

a  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 
- - - - - ' - - - 1 - - - - - 1 - 1 - - - - - -  .J.  '  .1. 
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Figure  H.81.  Last-Pass  —  Class:  3-1-3  (Catalog  Number  19643),  LUPI  8,  OPD  8. 


H-90 


H.IO  CLASS;  3-1-4  (NORAD  Catalog  Number  17429) 

H.10.1  Prediction  Performance.  The  tables  below  provide  the  statistical  informa¬ 
tion  on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H.28.  95%  Confidence  Interval  Analysis  on  Class:  3-1-4. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

km* 

km* 

km 

km 

17429 

2 

2 

1.97 

2.36 

1.18 

4.61 

4.81 

7.05 

17429 

2 

4 

1.73 

2.04 

0.96 

3.24 

4.25 

6.01 

17429 

2 

6 

1.64 

2.08 

1.15 

3.02 

4.23 

5.98 

17429 

2 

8 

1.73 

1.94 

1.59 

2.36 

4.68 

5.49 

17429 

4 

2 

3.03 

4.17 

4.56 

20.02 

8.39 

14.05 

17429 

4 

4 

3.17 

3.85 

6.58 

10.25 

9.13 

11.25 

17429 

4 

6 

2.78 

3.52 

4.65 

9.50 

7.92 

10.51 

17429 

4 

8 

2.64 

3.16 

4.00 

6.95 

7.36 

9.18 

17429 

6 

2 

4.33 

5.90 

9.91 

30.32 

12.13 

18.15 

17429 

6 

4 

4.16 

5.23 

10.30 

27.97 

12.12 

17.02 

17429 

6 

6 

3.95 

4.78 

10.40 

21.46 

11.63 

15.29 

17429 

6 

8 

3.71 

4.38 

8.47 

10.87 

14.52 

17429 

8 

2 

5.64 

8.82 

16.94 

15.77 

17429 

8 

4 

5.35 

6.58 

21.03 

16.22 

17429 

8 

6 

5.32 

6.15 

18.44 

30.12 

15.45 

18.67 

17429 

8 

8 

4.79 

5.93 

18.65 

26.07 

14.97 

17.62 

Table  H.29.  ANOVA  Analysis  on  Class;  3-1-4. 


Source  of 
Variation 

Degrees  of 
Preedorn 

Sum  of 
Square 

F 

Table 

F 

Replications 

9 

266.84 

29.(:5 

4.88 

1.88 

Main  Effects: 
LUPI 

3 

3573.71 

1191.24 

195.95 

n 

OPD 

3 

160.89 

53.63 

8.82 

mm 

Interaction 

9 

48.39 

5.34 

0.8844 

1.88 
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Figure  H.82.  Class:  3“l-4  (Catalog  Number  17429),  LUPI  2,  OPD  2  and  4. 
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8  OBS/DAY  -  TRUE  POSITION  ERROR  AND  4  DAY  MOVING  AVERAGE 
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Figure  H.83.  Class:  3-1-4  (Catalog  Number  17429),  LUPI  2,  OPD  6  and  8. 
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«rror  in  kM  Position  error  in 


2  OBS/OAY  -  TRUE  rOSITIOM  ERROR  AND  4  DAY  HOVINO  AVERAOE 
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Figure  H.S4.  Class;  3-lH  (Catalog  Number  17429),  LUPI  4,  OPD  2  and  4. 
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Figure  H.S5.  Class:  3-I~4  (Catalog  Number  17429),  LUPl  4,  OPD  6  aad  8. 
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Kgure  H.S6.  Cla«;  3-1-4  {Calilog  Number  17429),  LUPI  6.  OPD  2  and  4. 
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Figure  H.S7  Class:  3-1-4  (Catali^  Number  17429),  LUPl  6,  OPD  6  and  8. 
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Figure  11.88,  Class;  3-1-4  (Catalog  Number  17429),  LUPl  8,  OPD  2  and  4. 
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Figure  H.89.  Class;  3-1-4  (Catalog  Number  17429),  LUPI  8,  OPD  6  and  8 


H.10.2  Differential  Corrector  Performance.  The  table  below  provides  statistical 
information  on  the  last-pass  residuals  of  the  differential  corrector. 


Table  H.20.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

ifmm 

km 

km 

17429 

8 

8 

0.95 

1.05 

2.11 

2.36 

Figure  H.90.  Last-Pass  —  Class:  3-1-4  (Catalog  Number  17429),  LUPI  8,  OPu  8. 
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H.ll  CLASS:  4-I-I  (NORAD  Catalog  Number  20335) 

H.ll.i  Prediction  Performance.  The  table  below  piovides  the  statistical  ioformar 
tion  on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H.21.  95%  Confidence  Interval  Analysis  on  Class:  4-1-1. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

mm 

■Bi 

Min 

Max 

Min 

Max 

dsys 

obs/day 

km 

km 

m^SiSmi 

km’ 

km 

km 

20335 

2 

2 

221.25 

272.45 

26671.12 

35662.20 

610.60 

701.10 

20335 

2 

4 

124.21 

159.24 

13770.20 

18708.94 

403.52 

470.21 

20335 

2 

6 

67.04 

81.81 

6821.62 

11403.47 

261.20 

326.02 

20335 

2 

8 

48.45 

59.03 

1279.98 

4183.47 

136.20 

203.27 

IMOl 


osltlon  error  in  km  Position  error  in 


•rror  tn  ka  Position  orror  In 


Figure  H.92.  Class:  4-1-1  (Catalog  Number  20335),  LUPI  2,  OPD  6  and  8. 
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Differential  Corrector  Performance.  The  table  below  provides  statistical 
information  on  the  last-pass  residuals  of  the  diiferential  corrector. 


Table  H.22.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Num 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

km 

km 

20335 

2 

8 

4.18 

5.99 

5.61 

36.41 

10.70 

19.08 

Time  since  Initial  epoch  In  days 


Figure  H.93.  Last-Pass  —  Class:  4-1-1  (Catalog  Number  20335),  LUPI  2,  OPD  8. 
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n.l2  CLASS;  4-1-2  (NORAD  Catalog  Number  15584) 

H.12.1  Prediction  Performance.  The  table  below  provides  the  statistical  informa¬ 
tion  on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  differential  correction. 


Table  H.23.  95%  Confidence  Interval  Analysis  on  Class:  4-1-2. 


Catalog 

Number 

LUPI 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

km^ 

km* 

km 

km 

15584 

2 

2 

189.4 

225.47 

17671.3 

26701.23 

503.21 

598.48 

15584 

2 

123.62 

161.46 

9317.29 

13954.9 

351.06 

432.14 

15584 

2 

6 

68.16 

88.76 

6604.32 

9418.69 

258.28 

312.53 

15584 

2 

8 

37.86 

60.33 

1376.26 

5189.10 

118.41 

224.58 

I 
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fo»ltlon  •rror  li«  ka  Position  error  In 


Time  since  Initial  epoch  in  days 


Time  since  Initial  epoch  in  days 


figure  H.94.  <"■  ss:  4-1-2  (Catalog  Number  15584),  LUPI  2,  OPD  2  and  4. 
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Figure  H.95.  Class:  4-1-2  (Catalog  Number  15584),  LUPI  2,  OPD  6  and  8. 
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H.12.2  Differential  Corrector  Ferformance.  The  table  below  provides  statistical 
information  on  the  last-pass  :  v^siduals  of  the  differential  corrector. 


Table  H.24.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 


Catalog 

Number 

LUPI 

1 

OPD 

Mean 

Variance 

99%  CL 

Min 

Max 

Min 

Max 

Min 

Max 

days 

obs/day 

km 

km 

km’ 

km’ 

km 

km 

15584 

2 

8 

3.98 

6.69 

NOTE  1 

81.52 

10.6 

25.33 

NOTE  1:  The  95%  confidence  intervni  indicated  this  value  wu  lett  than  zero. 


which  is  not  possible. 


I  OBS/DAY  •  TAUe  BOSITIOM  EAROA  ANO  4  DAY  MOVING  AVERAGE 


20  10  40 

t\mt2  «fKKrh  In  dayt 


Figure  H.96.  Last-Pass  —  Class:  4-1-2  (Catalog  Number  15584),  LUPl  2,  OPD  8. 
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Appendix  I.  TUNED  VMAGT  GRAPHS 


I.l  CLASS:  1-3-2  (NORAD  Catalog  Number  14199) 

1.1,1  Prediction  Performance.  The  tables  below  provide  statistical  information  on 
the  ability  of  estimates  to  predict  for  1  LUPI  after  tuned  differential  correction. 


Table  I.l.  95%  Confidence  Interval  Analysis  on  Class:  1-3-2. 
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Tabic  1.2.  ANOVA  Analysis  on  Class:  1-3-2. 
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Variation 
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Square 
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Figure  I.l.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  2,  OPD  2  aad  4. 
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Figure  1.2.  Class:  1  3  -2  (Catalog  Number  14199),  LUPI  2,  OPD  €  and  8. 
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Figure  1.3.  Class:  i--3'  2  (Catalog  Number  14199),  LUPI  4,  OPD  2  aad  4. 
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Figure  1.4.  Cluss:  1-3-2  (Catalog  Number  14199).  LUPI  4,  OPD  6  and  8. 
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Figure  1.6.  Class;  l-3‘-2  (Cauiog  Number  Uly9),  LUPI  6,  OPD  6  aad  S. 
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Figure  1.7.  Class:  1-3-2  (Catalog  Number  U199),  LUIM  S,  OFD  2  and  4. 
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Figure  I.S.  Class:  1-3-2  (Catalog  Number  14199),  LUPI  8,  OPD  6  aad  8. 
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1.1,2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in¬ 
formation  on  the  last-pass  residuals  of  the  tuned  differential  corrector. 


I^ble  1.2.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 
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Figure  1.9.  Last-Pass  —  Class:  1-3-2  (Catalog  Number  14199),  LUPI  8,  OPD  8. 
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1.2  CLASS:  3-1-1  (NORAD  Catalog  Number  01996) 

1.2.1  Prediction  Performance.  The  tables  below  provide  the  statistical  information 
on  the  ability  of  the  estimates  to  predict  for  1  LUPI  after  tuned  differential  correction. 


Table  1.4.  95%  Confidence  Interval  Analysis  on  Class:  3-1-1. 


Catalog 

Number  LUPI  OPD 
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1.97 
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Table  1.5.  A  NOVA  .Analysis  on  Class:  S-l-l. 
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Ftgcre  1. 10.  Class:  3“  1-1  (Catalog  Number  01096),  LUI'I  2,  OPD  2  acd  4. 
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Figure  I.U.  Clasii:  S-l"!  (Catalog  Number  01996).  LUP!  2,  OPD  6  and  $. 
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Figure  1.12.  Class:  3-1-1  (Catalog  Number  0199b},  LUFI  4,  OPD  2  and  4. 
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Figure  1.13.  Class:  3-1- i  (CaUlog  Numbw  0I93t>).  U?i‘l  4.  OPD  6  aod  8. 
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Figure  1.14.  Cl^lS8:  3-1-1  (Catalog  Number  01996),  LUPI  6,  OPD  2  and  4. 
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Figure  I.IS.  Clo^:  3-1-1  (Catalog  Number  01996),  LUFI  6,  OPD  6  aod  8. 
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1.2.2  Differential  Corrector  Performance.  The  table  below  provides  statistical  in¬ 
formation  on  the  last-pass  residuals  of  the  tuned  differential  corrector. 


Table  1.4.  Selected  Last-Pass  95%  Confidence  Interval  Statistics. 
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Figure  1.18.  Last-Pass  —  Class:  3-1-1  (Catalog  Number  01996),  LUPI  8,  OPD  8. 
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